Нужно перевести эту блок схему в программу паскаль,как это ...

Motes

Ответ:
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x = 0 then
  s:=s+y;
  if y 0 then
  p:=p*y;
  x:=x+dx;
  goto rep;
 End
else
 Begin
  writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
  exit;
 End;
End.
Объяснение: Если есть вопросы, пишите в лс.