написать программу нахождения суммы двух чисел в паскале

program summa;uses crt;var x,y,s: real;beginwrite('a= ');readln(a);write('b= ');readln(b);s=a+b;write('s=',a,'+',b,'=',s);readln;end.