Является ли X простым числом.Pascal ABC.NET

vara,b,i:integer;beginreadln(a);for i:=2 to a-1 doif a mod i=0 theninc(b);if b>0 thenwriteln ('Не простое')else writeln('Простое');end.