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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.