Помогите пожалуйста с информатикой PASKAL!!!

Var X,Y,D:real; Begin Write('X = ');ReadLn(X); Write('Y = ');ReadLn(Y); Write('D = ');ReadLn(D); if (X>D)and(Y>D) then Write('Пролезет') else Write('Застрянет') End. Var A,B,C:real; Begin Write('Средняя температура Января в Норвегии:');ReadLn(A); Write('Средняя температура Января в Швеции:');ReadLn(B); Write('Средняя температура Января в Финляндии:');ReadLn(C); if (A<-13) then WriteLn('Норвегия'); if (B<-13) then WriteLn('Швеция'); if (C<-13) then WriteLn('Норвегия'); End. Var X,Y:real; Begin Write('x = ');Read(x); if x<=-200 then Y:=15*x*x*x else if (-200