(25 баллов) сгенерировать три случайных числа a b c из диапазона от -30 до 30

вывести их на экран, найти наибольшее из них по модулю (алгоритмом)

program next;

var a,b,c,q,w,e:real;

begin

a:=random(-30,30);

b:=random(-30,30);

c:=random(-30,30);

writeln(a);

writeln(b);

writeln(c);

q:=a*(-1);

w:=b*(-1);

e:=c*(-1);

if (q>w)and(q>e) then

begin

writeln('1 число больше остальных по модулю');

end;

if (w>q)and(w>e) then

begin

writeln('2 число больше остальных по модулю');

end;

if (e>w)and(e>q) then

begin

writeln('3 число больше остальных по модулю');

end;

end.

Объяснение: