На паскале. ввести с клавиатуры 2 числа. напечатать а) большее, б) меньшее. ввести с клавиатуры значения для х. вычислить и напечатать соответствующее значение для y по правилу: а) y=x+5, x< 6 б) y=x-4, x< =100 y=x/2, x> =6 y=x*3, x< +100 большое,

а) var a,b,c: integer;
begin
read(a,b);
if a>b then write(a)
else write(b);
end;

б)  var a,b,c: integer;

begin
read(a,b);
if a>b then write(b)
else write(a);
end;

А)

var x,y: real;
begin
read(x);
if X<=100 then write('Y=',X/2);
end;

Б)

var x,y: real;
begin
read(x);
if X>=6 then write('Y=',X*3);
end;

а X<+100 скорее всего не правильно написано