Напишите программы в среде графического исполнителя Робот для решения следующих задач:

закрасить рабочее поле горизонтальными пунктирными линиями ( );
закрасить квадраты во всех углах рабочего поля ( );
закрасить рабочее поле в клетку ( ).
На проверку по каждому пункту задания нужно прислать скриншоты окна графического исполнителя с кодом, результатом работы и временем выполнения работы.

60,111100,3c,74

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.