Где ошибка
var
a,b:real;c:string;
begin
writeln('Цисло тигров');
Read(a);
b:=30;
if a<=b then
writeln('Норма');
if a writeln('Угроза');
writeln('Угроза исчезновения');
read(c);
if c='Отправить' then
writeln('Вы выброли отправить');
if c='Не отправить' then
writeln('Вы выброли не отправить');
end;
end.

var a,b:real;c:string;begin writeln('Цисло тигров');Read(a);b:=30;if a<=b thenwriteln('Норма');if a>b then begin writeln('Угроза');writeln('Угроза исчезновения'); end;read(c);if c='Отправить' thenwriteln('Вы выбрали отправить');if c='Не отправить' thenwriteln('Вы выбрали не отправить');end.-----------По сути должна выглядеть так.