Написать програму в паскале, даны три чила, определить наибольшее (с помощью процедур)

1

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

2014-01-16T21:39:36+00:00
Program gt;
var a,b,c,d:real;
procedure chik(a,b,c:real;var d:real);
begin
d:=a;
if(b>d)then d:=b;
if(c>d)then d:=c;
end;
begin
read(a,b,c);
chik(a,b,c,d);
writeln(d);
end.