Program z1;
Var a,b,c,max:Integer;
Begin
 WriteLn('Введите А: ');
 Read(a);
 Writeln('Введите Б: ');
 Read(b);
 WriteLn('Введите С: ');
 Read(c);
 if a>b then max:=a else max:=b;
 if c>max then max:=c;
 WriteLn('Наиболее из чисел: ',max);
End.