Несложно ! 1. даны два случайных числа. определить а) наибольшее б) наименьшее 2. даны три числа. вывести а) наибольшее б) наименьшее паскаль

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.