GİRDİĞİNİZ SAYININ 5 E TAM BÖLÜNÜP BÖLÜNMİYECEĞİNİ BULAN PROGRAM


uses crt;
var
  a:integer;
begin
  clrscr;
  write('BIR SAYI GIRINIZ:');
  readln(a);
  if a/5*a=a then write('BU SAYI 5 E TAM BOLUNUR')
  else
  write('BU SAYI 5 E TAM BOLUNMEZ');
  readln;
end.