Ввести числа 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.