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

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

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

* 60 / 16 =

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe