z,x,f,C real;
writeln ('введите три числа');
readln(z);
readln(x);
readln(f);
if (z>f) then c=z else C:=f;
if (x>f) then C:=x else c:=f;
writeln(c);
readln
z,x,f,C real;
writeln ('введите три числа');
readln(z);
readln(x);
readln(f);
if (z>f) then c=z else C:=f;
if (x>f) then C:=x else c:=f;
writeln(c);
readln