Подключить модуль Graph, задать начальную точку, длинну по вертикали и горизантали. Ну там еще цвета назначить
===== PascalABC.NET =====
Четыре строки, 44 символа, включая пробел после var.
begin
var (a,b,c):=ReadReal3;
Print(a+b*c)
end.
Три строки, 42 символа.
begin
Print(ReadReal+ReadReal*ReadReal)
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
число, куб: ЦЕЛ;
УКАЗ
число := 1;
КОЛЬЦО
УВЕЛИЧИТЬ(число);
куб := число * число * число;
ПОКА куб > 10000 ВЫП
куб := куб ДЕЛИТЬ 10
КОН;
ЕСЛИ куб = 2016 ТО
Вывод.ЧЦел("%d", число, 0, 0, 0);
ВЫХОД
КОН
КОН
КОН Задание.