[bugness]

Знаю тока через цикл

program faqt;
var a,n,i:integer;
begin

write('число: ');
readln(a);
for i:=1 to a do
n:=i*a;
writeln('Ответ: ',n);
readln;

end.