Cod sursa(job #77214)

Utilizator ScratchLisca Alin Scratch Data 13 august 2007 18:54:17
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
program adunare;
var a, b, s: integer;
begin
WriteLn('Introduceti numarul A:');
ReadLn(A);
WriteLn('Introduceti numarul B:');
ReadLn(B);
S:=A+B;
WriteLn('Suma celor doua numere este:',S);
end.