Скинь фотку ребуса''''''''''
Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
Program n1;
var i: integer;
begin
for i:=0 to 8 do writeln('при x=',i,' y=',i*i+3);
end.