Оператор else не работает в паскале почему?

Question

[Frel]

Пишет вот "Program1.pas(21) : Встречено 'else', а ожидался оператор"

program test;

var
  sum: real;
  percent: real;
  period: integer;
  
  profit: real;
  result: real;
begin
  writeln('Вычисление дохода по в кладу в банке');
  writeln;
  
  write('Сумма (руб.) ->');
  readln(sum);
  write('Срок вклада (дней) ->');
  readln(period);
  
  if sum > 5000 then
         percent := 0.95;
      else
         pecent := 0.08;
  profit := sum * percent/365 * period;
  result := sum +profit;
  
  writeln('Сумма в конце срока вклады: ',
           result:6:2, руб.');
  writeln('Доход: ', profit:6:2, ' руб.');
  write('Для завершения работы нажмите <Enter>');
  readln;
end.

почему?

Answer 1

[Saboteur]

Как вы определили, что не работает?

У вас не Else не работает, а грамматических ошибок полно.
Не нужно ставить точку с запятой после первого
percent := 0.95

во втором pecent := 0.08; нужно писать percent а не pecent

в строке
writeln('Сумма в конце срока вклады: ',
result:6:2, руб.');

у вас перед руб не хватает одинарной кавычки.

Неужели так сложно внимательнее быть?

Comments

[Frel]

В abcnet написали Program1.pas(21) : Встречено 'else', а ожидался оператор

[Владимир Мартьянов]

Frel: И где тут слово "не работает"? Написано черт знает что, в итоге встречен else там, где ожидается оператор.

[Saboteur]

Frel: Потому что вы в предыдущей строке написали точку с запятой, что означает конец оператора if, понятно что оператор else отдельно от if не ожидается. Учитесь правильно читать ошибки

Answer 2

[flatcar]

if sum > 5000 then
percent := 0.95;
else
перед 'else' ';' не ставится