Нужна ! решите как можно скорей!

1 вариант по векторам:

использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон

2 вариант - написать:

использовать Чертежник

алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон

В Паскале имеется три вида стандартных циклов:
1) цикл с параметром (цикл for ... to ... do ...)
2) цикл с предусловием (цикл while ... do ...)
3) цикл с постусловием (цикл repeat ... until ...)
Программа с использованием цикла с параметром:
program z1;
var i:integer;
    x,p:real;
begin
p:=1;   {задаем начальное значение произведения}
for i:=1 to 10 do  {указываем количество повторений}
begin
   readln(x);         {вводим очередное число х}
   p:=p*x;             {умножаем введенное число х к произведению р}
end;
writeln(p);            {вывод результата}
end. 

Программа с использованием цикла с предусловием:
program z1;
var i:integer;
    x,p:real;
begin
p:=1;     {задаем начальное значение произведения}
i:=1;      {задаем начальное значение счетчика}
while i<=10 do     {задаем условие повторения цикла: пока i<=10}
begin
   readln(x);       {вводим очередное число х}
   p:=p*x;           {умножаем введенное число х к произведению р}
   i:=i+1;             {увеличиваем счетчик i на единицу}
end;
writeln(p);         {вывод результата}
end.

Программа с использованием цикла с постусловием:
program z1;
var i:integer;
    x,p:real;
begin
p:=1;     {задаем начальное значение произведения}
i:=1;      {задаем начальное значение счетчика}
repeat           {повторять все указанные действия}
   readln(x);   {вводим очередное число х}
   p:=p*x;       {умножаем введенное число х к произведению р}
   i:=i+1;         {увеличиваем счетчик i на единицу}
until i>10;      {до тех пор, пока счетчик i не станет больше 10}
writeln(p);      {вывод результата}
end.