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

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