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

[curpiva]

Помогите исправить код паскаль, нужно написать программу с защитой, заранее спасибо

вот код;

program Gddsf;

var a:integer;

s: string;

begin

writeln('введите возвраст'

readln(a);

write('введите имя'

read(s);

if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать&#39

else

write (' ты не сможешь голосовать'

read(s);

else

if (a>0)and (a<160) then writes (s',ты еще не родился&#39

else

write ('ты уже мёртв&#39

end.

 

[Денискаа]

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

 

[ASDFZXCV]

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

 

[Xasler]

Ты уже мертв

 

[Дима2003]

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