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

uses crt;
var a,b,s:real;
procedure summa (x,y:real;var s:real);
begin
  s:=x+y;
  writeln('s=',s:3:l, ' ',a:3:l,' ',b:3:l);
end;

begin
  clrscr;
  writeln('a=b=');readln(a,b);
  summa(a,b,s);
  writeln('s=',s:3:1,' ',a:3:1,' ',b:3:1);
  readln;
end.