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.

page revision: 1, last edited: 01 Oct 2009 13:22