{ Найти максимальное число из трёх. }

uses crt;
var a,b,c,max : integer;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   write('c=');readln(c);
    if (a>b) and (a>c) then max:=a;
    if (b>a) and (b>c) then max:=b;
    if (c>a) and (b