Cod sursa(job #77214)
Utilizator | 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.