Cod sursa(job #4002)
| Utilizator |  Dragomir Elena cascada |
Data | 29 decembrie 2006 23:56:35 |
|---|---|---|---|
| Problema | Semne | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
program elena;
var a,n,s:integer;
uses crt;
begin
write ('a=');readln(a);
writeln('n=');readln(n);
writeln('s=');readln(s);
for a to n do
if s:=a+n write('semnul este +') else write ('semnul este -);
end.