{Файл: progam_stud.pas
Задача:
  Напишите программу которая определяет 
  делится ли введённое с клавиатуры число 
  на 5
Автор:
   
Дата:
  }

  
var 
k     : integer;

begin
  //Ввод
  writeln ('введите целое число');
  readln (k);
 
 //решение
 if k mod 5 = 0 then
    //вывод
    writeln ('число делиться на пять')
  else
    writeln('число не делиться на пять');
end.