Помогите исправить код паскаль,

Question

Помогите исправить код паскаль, нужно написать программу с защитой, заранее спасибо
вот код;
program Gddsf;
var a:integer;
s: string;
begin
writeln('введите возвраст');
readln(a);
write('введите имя');
read(s);
if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать')
else
write (' ты не сможешь голосовать');
read(s);
else
if (a>0)and (a<160) then writes (s',ты еще не родился')
else
write ('ты уже мёртв')
end.

Дополнен

выдает такую ошибку - Program6xiy.pas(13) : Встречено 'else', а ожидался оператор

andrei_6534 · Accepted Answer

У тебя на ДВА if ТРИ else. Такого не бывает.
if может не иметь else, но else обязано иметь if.
 if a < 0 then&#10;  write('Ты ещё не родился')&#10;else if a > 150 then&#10;  write('Ты уже мёртв')&#10;else if a < 18 then&#10;  write('Ты не можешь голосовать')&#10;else&#10;  write('Ты можешь голосовать')

tatiana_41026 · Answer

Для исправления ошибки в вашем коде Pascal и написания программы с защитой, вам необходимо внести следующие изменения:

1234567891011121314151617

 program Gddsf;  
var  
  a: integer;  
  s: string;  
begin  
  writeln('Введите возраст');  
  readln(a);  
  write('Введите имя');  
  readln(s);  
 
  if (a >= 18) and (a <= 150) then  
    writeln(s, ', ты сможешь голосовать')  
  else if (a > 0) and (a < 160) then  
    writeln(s, ', ты еще не родился')  
  else  
    writeln('Ты уже мёртв');  
end.

Этот исправленный код устраняет ошибку с "else" и добавляет правильную структуру условий. Теперь программа должна работать корректно и выводить соответствующие сообщения в зависимости от введенного возраста.
Результат выполнения программы:

inga_zajonc · Answer

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

chumba_iumba_11 · Answer

А менделеева нет?

lina_nikinova · Answer

Ты уже мертв

semion_1909 · Answer

Лучше звони солу