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