Var x,y:real;
begin
writeln('Введите x, y: ');
readln(x, y);
writeln('Сумма = ', x+y);
writeln('Разность = ', x-y);
writeln('Произведение = ', x*y);
writeln('Частное = ', x/y);
end;
{
Операторы
write, writeln - вывод данных
read, readln - ввод данных
}