RosettaCodeData/Task/A+B/Free-Pascal-Lazarus/a+b.pas
2023-07-01 13:44:08 -04:00

10 lines
122 B
ObjectPascal

program SUMA;
uses
SysUtils;
var
s1, s2:integer;
begin
ReadLn(s1);
Readln(s2);
WriteLn(IntToStr(s1 + s2));
end.