Помогите решить задачи в Paskal ABC пожалуйста!

Question

Задача-1: Правда ли, что число А делится на число В Задача-2: Найти кол-во положительных чисел в массиве из N элементов. Задача-3: Вывести на экран все квадраты чисел первого десятка (1^2,2^2,3^2,...9^2)

....

Как нибудь по проще. .

....

Как нибудь по проще. .

Глеб Лапков · Accepted Answer

1) 
if a mod b then 
 writeln('Yes') 
else 
 writeln('No'); 
2) 
cnt:=0; 
for i:=0 to n-1 do 
 if mas>0 then 
 inc(cnt); 
writeln(cnt); 
3) 
for i:=1 to 10 do 
 writeln(i*i,' ');