не работает программа в pascal. встречено else,а ожидался оператор. Где ошибка? Спасибо.

end без точки с запятой, лол.

Перед else точка с запятой не ставится

программа работает теперь/ но нет условия, я не разбирался в ней
program namefuck;

uses crt;

const n=11;

var a:array [1..n] of integer;

var i,k,t,p,sum,mnog,dd,flag,otrez,schet,int:integer;

begin

writeln ('ââåäèòå ýë-û ìàññèâà');

for i:= 1 to n do

readln (a[i]);

flag:=1;

otrez:=1;

for t:= n downto otrez do

if a[t]=0 then k:=t;

for t:=n downto k+1 do

if a[t]=0 then otrez:=t;

for i:= k+1 to otrez-1 do begin

if flag = 2 then begin

writeln ('óìíîæåíèå =',a[i]*a[i+1],' ');

flag:=flag-1

end

else

writeln ('ñëîæåíèå =',a[i]+a[i+1],' ');

flag:=flag+1;

end;

end.

всем спасибо за ответы! вот рабочая программа!

program jghjer;
var a, b, c, d, e: real;
begin
writeln ('Ведите кол-во пироженых у Маши.');
read (a);
writeln ('Введите кол-во пироженых у Кати.');
read (b);
c:=b/a;
writeln ('У Маши ', a, 'пироженых, а у Кати в ', c,' раза больше. Сколько пироженых у девочек вместе?');
d:=a+c;
read (e);
if e=d then
writeln ('Ответ верен! Молодец!')
else writeln ('Ответ не верен. Правильный ответ', d, '.');
end.