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

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.