Даны два действительных числа x и y. вычислите их сумму, разность. язык pascal. заранее большое.

program n_1;var x, y: integer;beginwrite ('Введите x: ');readln (x);write ('Введите y: ');readln (y);writeln (x, ' + ', y, ' = ', x+y);writeln (x, ' - ', y, ' = ', x-y);end.