Ввести числа a,b,c и k. Если k = 1 отыскать p=max(a,b),

Паскаль?

да

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 lt; b then a:=b;
   Write('p = ',a)
   End
else
   if k=2 then
      Begin
      if a lt; b then a:=b;
      if a lt; c then a:=c;
      Write('p = ',a);
      End;
End.