Cod sursa(job #3999)

Utilizator cascadaDragomir Elena cascada Data 29 decembrie 2006 23:54:06
Problema Semne Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.17 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
write s:=a+a mod n;
end.