Cod sursa(job #638721)

Utilizator gugianghel liviu gugi Data 21 noiembrie 2011 15:12:32
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program adunare;
var x,y,s: integer;
a: char;
begin
a:='d';
while a='d' do
begin
writeln;
writeln;
writeln;
writeln('introdu primul numar');
readln(x);
writeln('introdu al doilea numar');
readln(y);
s:=x+y;
writeln('suma numerelor este:');
writeln(s);
writeln('doriti sa calcculati si pentru alte numere? (d/n)');
readln(a);
end;
end.