Pascal klausimai

Sveiki,

Pradejau mokytis pascal ir reiktu siek tiek pagalbos.

1. Rasau programa kuri turetu atspauzdinti tam tikra skaiciu ir jis kiekvienu kartu butu didesnis 10 vnt. Bet nezinau kaip parasyti kad tas skaicius vis didetu.

program Bevardė3;
var i:integer;
ledostoris:real;
begin
ledostoris:=5.00;
for i:=1 to 5 do
writeln (i,'ledo stroris', ledostoris:2:2,'mm');


 Readln;
end.

Nelabai supratau ką turėjai omeny, bet gal taip?

program ledas;
var i : integer;
   ls : real;
begin
 ls := 5.00;
 for i := 1 to 5 do
 begin
 WriteLn(i,'. Ledo storis ', ls:2:2,'mm.');
 ls := ls + 10;
 end;
 Readln;
end.

aciu, teisingai padarei,

Dar viena tokia uzduotele yra nezinau ka su ja daryti. Uzduotis skamba taip:

Parasykite programa kuri eilte atspauzdintu nelyginius skaicius is intervalo [1,10]

program eilute;
type masyvas =array[1..10] of integer;
var i : integer;
   A : masyvas;
begin
   Writeln('skaicius vesk eilute atskirdamas tarpais');
   for i := 1 to 10 do
     read(A[i]);
   for i := 1 to 10 do
       if A[i] mod 2 <> 0
           then write(A[i],' ');
 Readln;
 readln;
end.

jei mokeisi masyvus ir cikla for tai taip turi buti, manau galima ir be masyvo :)