Question

Помогите пожалуйста срочно программа Pascal ABC
программа спрашивает стороны прямоугольника (А,В)находят площадь А*В и выводит результат на экран. далее программа спрашивает любое число если оно деляться на 5 , но выводит сообщение (число кратко 5 ) иначе выводит число (не кратко 5 )
почему не правельно
срочно

Answer 1

Uses crt;var a,i:byte;   
s:real;
begin
clrscr;
for i:=1 to 4 do
begin
writeln('vvod');
readln(a);
if a mod 5=0 then writeln('Число ',a,' кратно 5 ') 
else writeln('Число ',a,' не кратно 5')
end;
end.