Даю 40 баллов!!!Напишите пожалуйста эту программу в Паскаль(2)

var rost,ves:real;
begin
writeln('Введите вес');
readln(ves);
writeln('Введите рост') ;
readln(rost);
if (rostgt;=168) and (rostlt;=178) then
if veslt;=rost-115 then writeln('Допущен') else writeln('не допущен') else writeln('не допущен ');
end.

********************************

car rost, ves:real;

begin
writeln('введите рост и вес конкурсанта') ;
readln(rost,ves);
if (rostlt;=168) or (rostgt;=178) then writeln('не допущен')
else if veslt;=rost-115 then writeln('допущен')
else writeln('не допущен');
end.

Пишу 2 варианта, какой больше понравится.