1. Найти значение Y, которое равно квадрату заданного числа Х, если Х>2, и равно 4 в остальных случаях.

2. Найти значение Y при заданном X:

3X+9, если X<7

Y=

SIN (X) + 1, если X>7

1.

var x, y:integer;

begin

write ('X=') ;

read (x) ;

if x>2 then y:=sqr (x) else y:=4;

write ('Y=', y) ;

end.

2.

var x:integer;

y:real;

begin

writeln ('X=') ;

read (x) ;

if x<7 then y:=3*x+9 else y:=sin (x) + 1;

writeln ('Y=', y:0:3) ; / / ограничивать 0 знаков перед запятой и 3 знака после.

end.