Подправишь где надо, потом сохранишь как написал выше.
Антивирус Avast, Dr.Web, ESET NOD32 , Avira ,
4 строки (если считать верхнюю), 3 столбца
Вот, сделал пример построения графика по шестьдесят одной точке.
Задаётся два значения- края отрезка, на котором нужно построить функцию.
Затем, считаем диапазон значений икс, так чтобы крайние значения равнялись заданным краям отрезка, а средние шли через равные промежутки.
После, по этим значениям икс вычисляем значения игрек (то есть, значение функции в каждой точке).
А в конце добавляем точечную диаграмму (со сглаживанием и маркерами точек), указывая в качестве исходных данных для неё наши значения икс и игрек.
Всё, график на этой диаграмме будет автоматически перестраиваться при изменении границ отрезка.
Также, можно менять число точек (просто копируя или удаляя формулы расчёта значений в трёх столбцах), и после этого меняя диапазон входных данных для диаграммы.
Uses crt;
var a,h:longint;
b:integer;
begin
clrscr;
writeln ('Введи число');
readln (a);
h:=1;
while a>0 do
begin
b:=a mod 10;
h:=h*100+b;
a:=a div 10;
end;
a:=0;
while h>10 do
begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.