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.