===== PascalABC.NET =====
function Min3(a, b, c: real) := Min(Min(a, b), c);
begin
var (a, b, c) := ReadReal3;
Min3(a, b, c).Println
end.
var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;<span>end.</span>