Решить на паскале по оператору перехода! даны различные действительные числа a, b, c, d. найти max (max(a, b), max(a, c), max(a, получить случайным образом на интервале [-50..+50]

uses crt;
var a,b,c,d:integer;
begin
randomize;
a:=random(-50,50);
b:=random(-50,50);
c:=random(-50,50);
d:=random(-50,50);
writeln('a: ',a,' b: ',b,' c: ',c,' d: ',d);
writeln(max(max(max(a,b),max(a,c)),max(a,d)));
end.