Составить блок-схему алгоритма и программу на языке программирования Паскаль

Question

Составить блок-схему алгоритма и программу на языке программирования Паскаль 
Y=ABx +1 
Y=tg A x2 - Bx/3 
X<0 
x>=0 
от -0,5 до 0,5 
Для проверочного решения значение параметра задачи "А" соответствует 6+5, параметра "В" 9+12.

Юлия · Accepted Answer

const 
A = 6+5; 
B = 9+12; 
function f(x: real): real; 
begin 
if x<0 then 
 result := A*B*x+1 
 else 
 result := tan(A*x*x)-B*(x/3); 
end; 
 
var 
 x: real; 
begin 
repeat 
 write('Введите x: '); 
 readln(x); 
until (x>= -0.5) and (x<=0.5); 
 writeln('y(',x,')=',f(x)); 
end.