Помогите решить в паскале задачи 2,3,4

Question

Помогите решить в паскале задачи 2,3,4

---

Answer 1

2)
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln('Число четное')
else writeln('Число нечетное');
end.

Пример:
15
Число нечетное

3)
var x:integer;
begin
readln(x);
if x>0 then writeln('У вас ',x,' рублей')
else writeln('счет пуст');
end.

Пример:
15
У вас 15 рублей

4)
var x:integer;
begin
readln(x);
if x>0 then writeln('Число положительное')
else writeln('Число отрицательное');
end.

Пример:
15
Число положительное

Comments

Спасибо огромное

---

Пожалуйста. Пользуйтесь кнопочкой "Спасибо".