Прошу помогите!!!!составьте программу нахождения наибольшего из пяти чисел a, b, c,

Ответ:

Разъясненье:

Program check;

var a,b,c,d,f,max:real;

Begin  

   writeln('Введите 5 чисел');

   readln(a,b,c,d,f);

max:=a;

   if bgt;max then max:=b;

   if cgt;max then max:=c;

   if dgt;max then max:=d;

   if fgt;max then max:=f;

   writeln('Большее из чисел равно ',max);

end.