Паскаль абс Робот, пишет втречено begin, а ожидалось ; Что делать?
uses Robot
begin
Task('cif2');
while FreeFromRight do
begin
if WallFromUp then
right;
paint;
end;
if WallFromUp then
paint;
end.

После строки uses Robot нужно поставить ;

Т.е. первая строка должна иметь вид uses Robot;