Смотри ты хорошо выключаешь то попробуй выключить и перевернуть подуй и все просто у меня срабатывало
Помойму так:
Думаю тебе поможет алгаритм ветвения,он состаит из вывода,условия,и начала,конца.
Если ошибся,поправьте.
Начало
Вывод(указываем переменные,A,B.ну и т.д.)
Да Условие(к примеру:A>=B) Нет
Если х=A+B Иначе х=A/B
Ну и дальше вывод,и конец.
Вывод
Конец.
Простите,что данный алгаритм написан не достаточно хорошо,ну думаю вам поможет.
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
это значит - раздел страницы сайта.
в одном гигабайте 1048576 кб. соответственно в 80гб х 1048676 = 83886080 кб.