Turbo PASCAL

Uramatorul program afişează pe ecran valoarea maximă a 3(trei) numere intregi introduse de la tasatură:

Program p;
var x, y, z, max : real;
begin
writeln ('Intorduceti x, y si z');
write ('x='); readln (x);
write ('y='); readln (y);
write ('z='); readln (z);
if x>y then max:=x else max:=y;
if z>max then max:=z else max:=max;
writeln ('Valoarea maxima este', max);
readln;
end.

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License