написать програму которая проверяет является ли целое число введенное пользователем- простым. ЭТО ТУРБО ПАСКАЛЬ, ЦИКЛ FOR<ПЛИЗ ОЧЕНЬ НААДО*))))

program qq;var a,b:integer; begin

readln (b);

for a:=b div 10 then write("простое");end;иначе write ("не простое");

end;

write(а);

end.я не уверен, что программа будет работать правильно(

Program SimpleNumber; 

Uses Crt; 

var i,f,n:integer;begin    write('Введите число:');     readln(n);     for i:=2 to trunc(sqrt(n)) doif (n mod i)=0 then f:=1;if (f=0) then write('Число Простое')

           else writeln('Число не является простым');   readkey;end.