Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу по ИВТ на языке паскаль.

Задано 3 числа найти наибольшее из них.

Ответ оставил Гость

var

a1, a2, a3, max: integer;

     begin write (Введите три числа: );

   readln (a1, a2, a3);  

if a1 >= a2

then max := a1

else max := a2;

  if a3 > max

then max := a3;  

writeln (Наибольшее из них: , max);  

readln

end.