Напишите следующую программу ** языке Паскаль, очень нужно!

Question

Напишите следующую программу на языке Паскаль, очень нужно!

---

Answer 1

Var a,b: integer;
begin
readln(a);
b:=a*2+a*3;
if b>a then
writeln('b>a') else
if b=0 then write('тут любой оператор');
end.