Найти максимальное число из трех чисел a, b, c записать условие

Question

Найти максимальное число из трех чисел a, b, c записать условие

Answer 1

Program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.