program srednia;
uses
crt;
var
a,b,c,s:real;
begin
writeln('podaj a');
readln(a);
writeln('podaj b');
readln(b);
writeln('podaj c');
readln(c);
s:=(a+b+c)/3 ;
if (a>b) and (a>c) then
begin
writeln('a jest najwieksze czyli ', a:4:2);
writeln('sredina to ', s:4:2);
if b>c then
writeln('mediana to b czyli ', b:4:2)
else
writeln('mediana to c czyli ', c:4:2);
end
else
if (b>a) and (b>c) then
begin
writeln('b jest najwieksze czyli ', b:4:2);
writeln('sredina to ', s:4:2);
if a>c then
writeln('mediana to b czyli ', a:4:2)
else
writeln('mediana to c czyli ', c:4:2);
end
else
if (c>a) and (c>b) then
begin
writeln('c jest najwieksze czyli ', c:4:2);
writeln('sredina to ', s:4:2);
if b>a then
writeln('mediana to b czyli ', b:4:2)
else
writeln('mediana to c czyli ', a:4:2);
end;
readln();
end.