использовать Чертежник
алг
нач
опустить перо
Д;И;М;А
сместиться на вектор(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)
кон
Объяснение:
Вроде так
сорри если будет неправильно
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.