Question

написать на паскале программу .определить что меньше а или б.

Answer 1

var a, b: real;
begin
     readln(a, b);
     if (a > b) then writeln(a, ' > ', b);
     if (a = b) then writeln(a, ' = ', b);
     if (a < b) then writeln(a, ' < ', b);
end.

Так =)

Answer 2

Что?

Answer 3

Program и uses не обязательно, а readln в конце уже устарел, как и program

Answer 4

Так что всё ок

Answer 5

может быть

Answer 6

program 123;
uses crt;
var
a,b: integer;
begin
clrscr;
writeln(' enter a,b');
readln(a,b);
if (a<=b) then min:=a
if (b<=a) then min:=b
writeln('min=',a,'min=',b);
readln;end.