.1 (№ 1486) На бесконечном поле есть горизонтальная и вертикальная стены. Правый конец горизонтальной стены соединён с верхним концом вертикальной стены. Длины стен неизвестны. В каждой стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной непосредственно в углу под горизонтальной стеной и слева от вертикальной стены. НАПИШИТЕ ДЛЯ РОБОТА АЛГОРИТМ

Данная программа выдаёт ошибку. Давайте для начала её отладим
Program Summ;
Var a, b, c: integer;
Begin
      Writeln ('введите первое число: ' );  
       Readln (a);
       Writeln ('Введите 2-рое число:');
       Readln (b);
       c:a+b;                                 {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b;  }
       writeln ( 'Результат =' ,c);
End.

ну а теперь можно её и разобрать
Var a, b, c: integer;                              Объявляем переменные
Begin
  Writeln ('введите первое число: ' );    выводим на экран предложение ввести число
  Readln (a);                                        присваиваем переменной А введённое число
  Writeln ('Введите 2-рое число:');        выводим на экран предложение ввести число
  Readln (b);                                        присваиваем переменной В введённое число
  c:=a+b;                                         Присваиваем переменной С сумму чисел А и В
writeln ( 'Результат =' ,c);                    Выводим результат
End.

Паскаль АВС.
Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры :)

Program Upmixer;
var
  day, month, year:integer;
begin
writeln('Введите дату:');
write('День:'); read (day);
write('Месяц:'); read (month);
write('Год:'); read (year);
day:=day+1;
{если было введено 29 февраля високосного года}
if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then
  begin
    day:=1;
    month:=month+1;
  end;
{если было введено 28 февраля невисокосного года}
if (((year mod 4)<>0) and (month=2) and (day=29)) then
  begin
    day:=1;
    month:=month+1;
  end;
{другие дни}
if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then
  begin
    day:=1;
    month:=month+1;
  end;
if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then
begin
    day:=1;
    month:=month+1;
end;
{31 декабря}
if ((day=32) and (month=12)) then
begin
    day:=1;
    month:=1;
    year:=year+1;
end;
writeln('Завтра ', day,' ',month,' ',year);
end.