составить программу даны два числа X и Y найти их сумму разность произведение частное

var a,b,x,y,z,d:real;beginwrite('Введите число X='); readln(x);write('Введите число Y='); readln(y);a:=x+y;b:=x-y;z:=x*y;d:=x/y;writeln('Сумма чисел=',a);writeln('Разность чисел=',b);writeln('Произведение чисел=',z);writeln('Частное чисел=',d);end.