Наверно библиотека, 10 букв.
2021 это 202,1*10 или 404,2*5 (вариантов бесчисленно много)
3000 это 300*10 или 30000/10
545 это 109*5 или 5450/10
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.