Дано: for i: =1 to 23 do i изменится от до с шагом

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

вот на c:

#include < stdio.h> int main(void){  int i;   for(i = 50; i > = -50; i -= 10)  {    printf("%d\n", i);     }  printf("\n");   system("pause");   return 0; }