program nacitaniI;
{ Tento program očekává následující vstup:
na první řádce číslo N a na další řádce N čísel oddělených mezerami.
Všechna čísla se vejdou do rozsahu typu integer.
Program načte daných N čísel ve for-cyklu a jen je opíše na výstup. }
var n, x, i : integer;
begin
readln(n); { Načteme, kolik máme na další řádce očekávat čísel.
Je jedno, jestli použijeme read(n); či readln(n); }
for i:=1 to n do { Ve for cyklu provedeme n-krát: načti číslo a rovnou ho vypiš. }
begin
read(x);
write(x,' '); { Pokud byste třeba chtěli všechna čísla sečíst,
zde je ideální místo pro provedení částečného součtu. }
end; { Toto je end, který ukončuje tělo for-cyklu. }
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)