Stepik 2.1 шаг 4 из 10 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет их сумму и под­счи­ты­ва­ет количество по­ло­жи­тель­ных чётных чисел, не пре­вос­хо­дя­щих 100.

Количество чисел не пре­вы­ша­ет 1000. Введённые числа по мо­ду­лю не пре­вы­ша­ют 30 000.

Формат входных данных
Про­грам­ма по­лу­ча­ет на вход целые числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность).
Формат выходных данных
Про­грам­ма долж­на вы­ве­сти два числа: сумму чисел в последовательности и количество по­ло­жи­тель­ных чётных чисел, не пре­вос­хо­дя­щих 100.

на языке ПИТОН​

Данная программа выдаёт ошибку. Давайте для начала её отладим
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.