А)
var a,b:integer;
begin
writeln ('Введите два целых числа:');
read (a,b);
if a > b then begin
writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin
writeln ('Наибольшее число ',b);
writeln ('Наименьшее число ',a);
end;
end.
В)
var a,b,c,d,max:integer;
begin
writeln ('Введите четыре целых числа:');
read (a,b,c,d);
max:=a;
if b > max then begin
max:=b;
end;
if c > max then begin
max:=c;
end;
if d > max then begin
max:=d;
end;
writeln ('Максимальное число ',max);
end.