Составить алгоритм и написать программу: Среди трехзначных чисел найдите те, которые делятся на 11 и на 17.

Var num:integer;

begin

writeln ('0 - выход');

repeat

write ('Введите число: ');

readln (num);

if (((num mod 11) = 0) or ((num mod 17) = 0)) then writeln ('Это число делится на 11 или 17')

else writeln ('Это число не делится ни на 11, ни на 17');

until num = 0;

end.

Var a, b, c:integer;

begin

writeln ('Введите количество цифр:');

read (a);

for b:=1 to a do begin

readln (c);

if (c mod 11 = 0) and (c mod 17 = 0) then

writeln ('число ', c, ' удовлетворяет условию');

end;

end.