паскаль абс

[DeadMan1995]

Люди добрые напишите плз задачи и блок-
схему студенту новечку...
1) Вычисление значения функции х=sqr
(12)+7a-16 при любом значении.
2) Дано вещественное число х . Вычислить f
(x) , если sinx при 0.2<=x<=0.9

[Sab_zero]

program first;
var x,a:integer;
begin
readln(a);
 x:=sqr(12)+7*a-16;

write(x);
end.

[McFrey]

2 задача

program by_McFrey;
var f,x:real;
begin 
writeln('Введите x из промежутка (0.2;0.9)');
repeat
readln(x);
until (x>=0.2)and(x<=0.9);
f:=sin(x);
writeln('Значение функции = ',f);
end.