Pascal Sorusu yardım ?

Begin ile başliyordu end ile bitiyordu:))) lisedeb aklimda kalan pascal mi kaldi ya hala okullarda ogretiyorlar mi?:)))

Malesef öğretiyolar :D

Bir iki komut yazarsan belki aklima gelir basit input komutlari falan gerisini hatirlarim:)

uses crt;
var
a,i,sayac:integer;
begin
clrscr;
sayac:=0;
writeln('Sayı Giriniz : ');
readln(a);
for i:=1 to a do
begin
if a mod i = 0 then
sayac:=sayac+1;
end;
if sayac=2 then
writeln('SAYI; ASAL SAYI');
else
writeln('SAYI ASAL DEĞİL');
end;
readln;
end.

Asal sayi olup olmadigini kontrol ediyor. Kullanicinin girdigi sayidan sonra dongu yapip sayaci bir artirarak asal sayi olup olmadigini kontrol et. İkinci bi degisken tanimla onun sayacinida her asal sayi buldugunda bir artir sonrasinda bi kontrol ekle buldugun asal sayi sayaci 5 oldumu mesaj verip sonlandirsin programi

Mantik yurut kodda copy paste pascali hatirlamiyorum ama zor degil yaparsin