помогите составить задачу в PASCAL

Question

1) Программа выводящая факториал 5 
2) Программа выводящая на экран квадраты чисел от 1 до 20

Татьяна Долматова · Accepted Answer

какой из способов находящий факториал?? ? 
function fact(x:byte):real; 
begin 
if x=0 then fact:=1 
else fact:=fact(x-1)*x; 
end;

Саша Гуров · Answer

тема Циклы 
Чтот такое 
 
var 
 x, n : Integer; 
x := 1; 
for n:=1 to 5 do x := x * n; 
WriteLn(x);

для квадратов 
for n:=1 to 20 do WriteLn(n*n);