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.