Поиск
Получение случайных чисел
... Просмотреть гистограмму ');
4: write (' Выход ');
5: write (' Esc-Закончить изменение параметров. BckSp-Изменить параметр. F4-Постр. посл-ть');
6: write (' Нажмите Up или ... ... просмотра или Esc для выхода ');
end;
end;
{*****DrawWin*****}
procedure drawwin;
begin
textcolor (white);textbackground (blue);
GotoXY (1,2);
Write ('г');
for i:=2 to 79 do
Write ('=');
Write ('¬');
for i:=3 to 23 do
begin
GotoXY ...