ΕΠΑΝΑΛΗΨΗ με repeat .. until ----------------------------
repeat {εντολές - συμπληρώστε} until {συνθήκη εξόδου - όχι ακόμα}
.. i:=i+1; until i>3;
.. athroisma:=athroisma+vathmos; i:=i+1; until i>3;
repeat
ώστε να γίνει
while {συνθήκη} do begin
until i>3;
ώστε να γίνει
end;
while i<=3 do
while i<=3 do
ώστε να γίνει
for i:=1 to 3 do
while mantepsia<=0 do begin {εντολές} end;
—-
* ΕΠΕΚΤΑΣΗ 1 / ΑΣΚΗΣΗ ΓΙΑ ΤΟ ΣΠΙΤΙ