Составьте программу рисования узора. Начальное положение Робота отмечено символом ◊

64*48*12*8=294,912- обьем в байтах 1 стр

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

954-459=495                                      

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.