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('Норвегия');<br>if (B<-13) then WriteLn('Швеция');<br>if (C<-13) then WriteLn('Норвегия');<br>End.
Var
X,Y:real;
Begin
Write('x = ');Read(x);
if x<=-200 then Y:=15*x*x*x<br>else if (-200else y:=100;
Write('y = ',y);
End.