Помогите пожалуйста 1) вывести ** экран делители числа n 2) найти все числа от 33 до 555,...

Question

Помогите пожалуйста
1) вывести на экран делители числа n
2) найти все числа от 33 до 555, которые кратны 13

Answer 1

1. 
program test;
var  i, n: integer;
begin  writeln('Введите число: '); 
readln(n);
for i := 1 to n do
if (n mod i = 0) then writeln('Делитель числа ', n, ': ', i);
end.


2. 
program test;
var  i: integer;
begin 
for i := 33 to 555 do  
if (i mod 13 = 0) then writeln('Число ', i, ' кратно 13! ' );
end.