Объяснение:
var x,a:real;
begin
writeln('Введите число а');
readln(a);
if a>2 then x:=(2*a)+(a/2) else x:=9-(a*x);
writeln('ответ:',x);
end.
