Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / while
.pasvar i : integer;
begin
i := 5;
while (i > 0) do
begin
write (i);
writeln;
i := i - 1;
end;
end.