Даны два действительных числа x и y. Вычислите их сумму, разность. Язык Pascal. Заранее спасибо большое.

1. program n_1;
2. var x, y: integer;
3. begin
4. write ('Введите x: ');
5. readln (x);
6. write ('Введите y: ');
7. readln (y);
8. writeln (x, ' + ', y, ' = ', x+y);
9. writeln (x, ' - ', y, ' = ', x-y);
10. end.