RosettaCodeData/Task/A+B/Free-Pascal-Lazarus/a+b.pas

11 lines
122 B
ObjectPascal
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
program SUMA;
uses
SysUtils;
var
s1, s2:integer;
begin
ReadLn(s1);
Readln(s2);
WriteLn(IntToStr(s1 + s2));
end.