Составим программу обмена местами двух чисел c=8,d=22.

 program obmenDan;
var c,d:integer;
procedure obmen ( a,b:integer);
var m:integer;
begin
m:=a; a:=b; b:=m;
writeln(a,b);
end;
begin
writeln ('Введите 2 числа: ');
readln(c,d);
obmen(c,d);
writeln(c,' ',d);
end.

 Проанализируй и выбери верные ответы.

 с=8 d=22 а=8 в=22

 После выполнения программы:
с=?
d=?
a=?
в=?​