Question

Найти и описать ошибки. Исправить ошибки. Написать результат программы
const

a: byte;

x;y: integer,

v: real, // вспомогательная переменная

begin

write('Введите x,y: '),

readln(x,y),

v = x,

x = y,

y = v,

writeln('Новые значения x,y: ',x,' ',y),

end

Answer 1

var

 x, y: integer;

 v: integer;// вспомогательная переменная

begin

 write('Введите x,y: ');

 readln(x, y);

 v := x;

 x := y;

 y := v;

 writeln('Новые значения x,y: ', x, ' ', y)

end.