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

Question

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

---

Comments

тебе именно на паскале

---

я могу на с ++ или java

---

Только Паскаль

---

ну тогда нечем помочь) прости

---

ой смайлик не тот(

---

var x: integer;begin Read(x); if x = 24 then Write('делится на 3') else Write('неизвестно')end.

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.
(Вроде так)