Даны действительные числа a, b, c. уменьшить в два раза эти числа, если c> a> b. и удвоить их в противном случае

PascalABC.NET 3.3

program journal;

var

 sum, mark, count, n: integer;

 check: boolean;

begin

 sum := 0;

 check := true;

 count := 0;

 writeln('Введите количество оценок: ');

 readln(n);

 if (n > 0) then begin  

 while (count <> n) do

 begin

   readln(mark);

   inc(sum, mark);

   if (mark < 4 ) then check := false;

   inc(count);

   if (count = n) then writeln('Ввод окончен!');

 end;

 end else writeln('Error!');  

 if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');

end.

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

алг

нач

 опустить перо

 Д;И;М;А

 сместиться на вектор(1,0)

 Д;И;М;А

 сместиться на вектор(1,0)

 Д;И;М;А

кон

алг Д

нач

 опустить перо

 сместиться на вектор(0,3)

 сместиться на вектор(1,0)

 сместиться на вектор(0,-1)

 сместиться на вектор(-1,-0.5)

 поднять перо

 сместиться на вектор(2,-1.5)

кон

алг И

нач

 опустить перо

 сместиться на вектор(0,3)

 сместиться на вектор(0,-3)

 сместиться на вектор(1.5,3)

 сместиться на вектор(0,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

алг М

нач

 опустить перо

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

алг А

нач

 опустить перо

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 сместиться на вектор(0.75,3)

 сместиться на вектор(0.75,-3)

 поднять перо

 сместиться на вектор(1,0)

кон

Объяснение:

Вроде так

сорри если будет неправильно