Cod sursa(job #1595)

Utilizator hellboy_florinPatru Florin hellboy_florin Data 14 decembrie 2006 09:33:12
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss\fcharset238{\*\fname Arial;}Arial CE;}}
\viewkind4\uc1\pard\f0\fs20 Program suma;\par
uses crt;\par
var a,b,c:integer;\par
begin\par
clrscr;\par
write('a=');read(a);\par
write('b=');read(b);\par
s:=0;\par
s:=a+b;\par
write(s);\par
readkey;\par
end.\f1\par
}