Pascal. Написать алгоритм нахождения максимума из трех чисел ...

Motes

uses crt;var a,x,y,z:integer;begin Write ('x='); read (x); Write ('y='); read (y); Write ('z='); read (z);if x>y then a:=1else a:=0;if (a=1) and (x>z) then write('x-bolwe');if (a=0) and (xy) then a:=3;if (a=0) and (y>z)then write('y-bolwe');if (a=3) thenwrite('z-bolwe'); read;end.

 

 

находит большее из 3-х, ты ведь это имела ввиду)