Решить задачу: Даны три числа. Найти наибольшее (написать программу)

1

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

2014-02-11T14:08:21+04:00
Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.