простой цикл с repeat

Посмотреть архив целиком
program zikli;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x:integer;
begin
repeat writeln ('Vvedite chislo bolshe 10');
readln(x);
until x>10;
writeln ('vvedennoe chislo ',x);
readln;
end.

Случайные файлы

Файл
ListDocs.txt
Readme.txt
big-ansi.txt
readme.txt
txt.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.