В политехническом колледже проводится конкурс аттестатов. Находятся средний по русскому языку, математику,физике,информатике и если он составляет не менее 4,5 пользователю сообщается, что он зачислен, в противном случае - "Извините, вы не конкурс аттестатов"
program raf105;
uses robot;
begin
task('if5');
if (wallfromdown) or (wallfromup)
then begin left; paint; right; right; paint; left;
end;
if (wallfromleft) or (wallfromright)
then begin up; paint; down; down; paint; up;
end;
end.
if6program raf105;
uses robot;
begin
task('if6');
up;
if cellispainted
then begin down; down; paint; end
else begin down; down;
if cellispainted
then begin up; up; paint; end
else begin up; left;
if cellispainted
then begin right; right; paint; end
else paint;
end;
end;
end.
if7program raf105;
uses robot;
begin
task('if7');
if wallfromright and wallfromdown
then begin up; left; paint; end;
if wallfromleft and wallfromdown
then begin up; right; paint; end;
if wallfromup and wallfromleft
then begin right; down; paint; end;
if wallfromup and wallfromright
then begin down; left; paint; end
end.