Плиз помогите с информатикой( в башке заело) ( здесь нужно использовать циклы for while или repeat);заранее спасибо)

1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом

2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3

1. var a,i,x,k,y,z,b,c:integer;
begin
writeln (Введи число);
readln (a);
for i:=2 to a do
if a mod i =0 then k:=k+1;
if k=1 then writeln (число простое)
else writeln (Число составное);
readln;
end.

2.var a,i,k,x:integer;
begin
for i:=100 to 999 do
if i mod 3=0 then
begin
a:=i mod 10 + i div 10 mod 10 + i div 100 mod 10;
k:=i div 3;
while k>0 do begin
x:=k mod 10 + x;
k:=k div 10;
end;
if a>x then write (i, );
a:=0;
x:=0;
end;
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.