Задача: написать программу нахождение наибольшего числа из 4 любых. Сейчас изучаем паскаль

Question

Задача: написать программу нахождение наибольшего числа из 4 любых. Сейчас изучаем паскаль

Answer 1

var

   a1, a2, a3 a4 max: integer;

 

begin

   write ('Введите 4 числа: ');

   readln (a1, a2, a3, a4);

 

   if a1 >= a2 then

       max := a1

   else

       max := a2;

 

   if a2 > a3 then

       max := a2;

if a3>a4 max then

max:=a4

 

   writeln ('Максимальное из них: ', max);

 

readln

end.

Comments

Косяк мой,после этой строки еще строка max := a4;

---

var a1, a2, a3 a4 max: integer;begin write ('Введите 4 числа: '); readln (a1, a2, a3, a4); if a1 >= a2 then max := a1 else max := a2; if a2 > a3 then max := a2;if a3>a4 max then writeln ('Максимальное из них: ', max);readlnend.

---

beginwrite ('Введите 4 числа: ');readln (a1, a2, a3, a4);if a1 >= a2 thenmax := a1elsemax := a2;if a2 > a3 thenmax := a2;if a3>a4 max thenmax:=a4;writeln ('Максимальное из них: ', max);readlnend.Вот это верный код

---

Спасииибо:з