program glaza;
var n,g,a:integer;
begin
writeln ('Введите возраст');
readln (n);
if n:=20 then g:=n*3
else
if n<=50 then
begin
a:=n-20;
g:=a*2+60;
end;
else begin
a:=n-50;
g:=a*1+120;
end;
writeln (g);
end.

Если не ошибаюсь, надо "if n=20"
Добавлено спустя 1 минуту, 10 секунд
На что конкретно ругается?

else begin
a:=n-50;
g:=a*1+120;
end;

Показывает на это
113 Error in statement

либо в первом IF после n*3 нет точки с запятой,
либо перед вторым else она стоит. непомню точно,но кажется перед else очка с запятой НЕставится.

После end убери точку с запятой - перед else она не ставится.
И лучше пиши с отступами - легче будет читать.
И оператор сравнения =, := это присвоение, как уже верно отметили.

СЕнкъю вери матч за хелп