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

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