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

  • Автор темы LamerOK
  • Дата начала
L

LamerOK

#1
Я так сказать начинающий программист,точней школьник.Недавно только начал учить 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.
 
E

Eleno4ka

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

вроде так
 
L

LamerOK

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

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

LamerOK

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