Пожалуйста 2 номер.
Var x,y:real; begin write('Введите x,y через пробел: '); readln(x,y); writeln(x,'+',y,' = ',x+y); writeln(x,'-',y,' = ',x-y); writeln(x,'*',y,' = ',x*y); writeln(x,'/',y,' = ',x/y); end.