Ответ(ы) на вопрос:
Гость Var
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.
Не нашли ответ?
Похожие вопросы