1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
For
,bez shrnutí editace
for i:=1 to 10 do begin
WriteLn ('I=‘',i);
end;
Na obrazovku sa podseba vypíšu čísla od 1 do 10.
