Ввести числа a,b,c и k. Если k = 1 найти p=max(a,b), если k=2 найти p=max(a,b,c), при всех других значениях k ничего вычислять не надо.

Var A,B,C,k:integer; Begin Write('A = ');ReadLn(A); Write('B = ');ReadLn(B); Write('C = ');ReadLn(C); Write('k = ');ReadLn(k); if k=1 then    Begin    if a < b then a:=b;    Write('p = ',a)    End else    if k=2 then       Begin       if a < b then a:=b;       if a < c then a:=c;       Write('p = ',a);       End; End.