RosettaCodeData/Task/A+B/Delphi/a+b.delphi

program SUM;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure
var
  s1, s2:string;
begin
  ReadLn(s1);
  Readln(s2);
  Writeln(StrToIntDef(s1, 0) + StrToIntDef(s2,0));
end.
CDE 2013-04-10 16:57:12 -07:00			`program SUM;`

			`{$APPTYPE CONSOLE}`

			`uses`
			`SysUtils;`

2016 Update 2016-12-05 22:15:40 +01:00			`procedure`
CDE 2013-04-10 16:57:12 -07:00			`var`
			`s1, s2:string;`
			`begin`
			`ReadLn(s1);`
			`Readln(s2);`
			`Writeln(StrToIntDef(s1, 0) + StrToIntDef(s2,0));`
			`end.`