Question

Нужна помощь, ребята. Паскаль не мое

Answer 1

PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger = 24 then Writeln('делится на 3')

 else Writeln('неизвестно')

end.

Answer 2

program mq;
var: a: integer;
begin
Writeln(' Введите число 24')
Readln(a);
if a/3 then
Writeln('Делиться на 3')
else
Writeln(' Неизвестно') ;
Readln;
end.
(Вроде так)