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

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