- Код: Выделить всё
var x, y, z : integer;
a : string;
begin
randomize;
repeat
write ('С какого числа начинать? прим. начинать с 0 или с 1:');
readln (x);
write ('До какого числа '' рандромировать''? прим. до 10 или 5, или как вам угодно:');
readln (y);
repeat
z := x + random (y);
writeln (z);
readln;
write ('Если хотите поменять параметры, нажмите 0. Если хотите выйти нажмите 1. если хотите рандомнуть ещё раз нажмите 2. (после ввода нажмите enter)');
readln (a);
if a = '0' then
until;
else
if a = '1' then
break;
else
if a = '2' then
until;
else
writeln ('Чё?');
readln
end.
Не компилируется! Помогите пожалуйста.