Question

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

Answer 1

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<x)and(x<=0) then y:=abs(x)+2
else y:=100;
Write('y = ',y);
End.