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

1

Ответы и объяснения

2014-01-20T16:45:58+04:00
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.