Pascal.(34б) если все элементы одномерного массива положительные то вывести сообщение "условие выполняется" иначе "условие не выполняется" дан массив из n элементов. определить произведение элементов кратных заданному k(k-задается с клавиатуры). дан массив из n элементов.определить произведение тех элементов,которые кратные 3.

Var k,a,b,c:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
writeln('введите число k');
readln(k);
if a mod k = 0 then
writeln('Первое число кратно k')
else
writeln('Первое число не кратно k');
if b mod k = 0 then
writeln('Второе число кратно k')
else
writeln('Второе число не кратно k');
if c mod k = 0 then
writeln('Третье число кратно K')
else
writeln('Третье число кратно k');
end.
Это первая задача!