Question

ПОМОГИТЕ СРОЧНО!!! НЕСЛОЖНО !!!!!
1. Даны два случайных числа. Определить а) наибольшее б) наименьшее
2. Даны три числа. Вывести а) наибольшее б) наименьшее
ПАСКАЛЬ

Answer 1

var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.