Question

Введите с клавиатуры 4 числа. Вывести на экран номер наибольшего числа. Это по паскалю.

Answer 1

program z1;
var a, b, c, d, max: integer;

begin

writeln('Введите 4 числа');
reag(a,b,c,d);
     if a>b then max:=a
                else max:=b;
     if c>max then max:=c
           else max:=max+0;     {чтоб max не изменилось}
     if d>max then max:=d
           else max:=max+0;      {тож самое - без изменений}
writeln('Максимальное число', max);
end.

Answer 2

не долго, ладно ща кратко

Answer 3

Всё правильно решено. Получила 5.