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

Question

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

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

Answer 1

var

a1, a2, a3, max:integer;

     beginwrite('Введите три числа: ');

   readln(a1, a2, a3);  

if a1 >= a2

then max := a1

else max := a2;

  if a3 > max

then max := a3;  

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

readln

end.