Помогите!проблема В Решении Простой Задачи

[LamerOK]

Я так сказать начинающий программист,точней школьник.Недавно только начал учить Pascal и тут напоролся на сложную для меня задачу. Нужно написать программу которая "гадает" по количеству лепестков ромашки.Я попытался написать эту программу и встретил проблему(см. ниже)Программу писал на TP

uses Crt;
var a : Integer;
begin
Clrscr;
write('Vvedite koli4estvo lepestkov: ');
read(a);
if (a<1) or (a>5) THEN
writeln ('Gde vu takie romashki videli?');
readkey;
end {Вот тут то и проблема, если не поставлю "." программа дальше не читается, если ";" выбивает ошибку что нужна ".". Может проблема и не в этой строке,в общем ПОМОГИТЕ)
else
if (a=4) or (a=2)
writeln('Ne lubit...');
readkey;
end
else
writeln('Lubit!');
readkey;
end.

 

[Eleno4ka]

ты когда открыл первый if ты не написал begin ^_^
if (a<1) or (a>5) THEN
begin
writeln ('Gde vu takie romashki videli?');
readkey;
end;

вроде так

 

[LamerOK]

ты когда открыл первый if ты не написал begin ^_^
if (a<1) or (a>5) THEN
begin
writeln ('Gde vu takie romashki videli?');
readkey;
end;

вроде так

может это и правильно но надо тогда еще что то менять по тому что компилятор пишет 113 еррор перед else если писать "end;"
(Описание ошибки 113
Данный символ не может быть первым символом в операторе.)

 

[LamerOK]

Ну так кто-то поможет?

 

[LamerOK]

Угу, спасибо помогли , программисты ,сам додумался...