Помоги пожалуйста с решением( по программе Паскаль)
ввести три числа и найти наибольшее из них.

1

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

2014-04-02T16:36:35+00:00
Program asq1;
var a,b,c,max:integer;  //если числа дробные то вместо integer пишем real
begin
readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln(max);
end.