На скільки кроків буде виконано переміщення у результаті виконання такого циклу?

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа

   

видим на рисунке прямоугольник

 

пишем

*длина

*ширина

*координаты центра

*угол поворота

*цвет

*цвет заливки

методы

*площадь

*нарисовать

*повернуть

и тд