Cod sursa(job #4004)
Utilizator | Data | 29 decembrie 2006 23:57:05 | |
---|---|---|---|
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.