Составить блок-схему алгоритма и программу с помощью оператора «FOR»:
начало
R, a, l, b
X=0, 10
y
конец
Program Tiko;
var
y, a, R, l, b: real;
x: integer;
begin
writeln (‘a=’); readln (a);
writeln (‘R=’); readln (R);
writeln (‘l=’); readln (l);
writeln (‘b=’); readln (b);
For x:=0 to 10 do begin
Y:=a*exp(-b*x)*sin(R*x+ l);
writeln (‘y=’, y:9:2);
end;
readln;
end.