www.techinf1.fora.pl :: Przegląd tematu

tehran · Wysłany: Nie 0:04, 10 Lut 2008 Temat postu: program imie

program imie;
var
a:byte;
begin
repeat
writeln('ktos');
a:=a+1; {co obieg petli zwiekszenie a o 1}
until a>5;{jesli zmienna a bedzie wieksza od 5 to program wypisze slowo
end. ktos}