Пример ввода: longint
char
string
Пример вывода:
s1 : string;
s2 : longint;
s3 : char;

1. не заходить на вредные ссылки

не переходить на сайты на которые ругается антивирус

не скачивать подозрительные файлы с сайтов

не писать гадости в интернете

2. мальчик неправильно сидит за столом и неправильно мользуется компьютером

ноги должны на 90 градусов стоять на полу, глаза должны быть на растоянии не меньше 50 см от экрана, спина должна находиться на спинке, чтобы сохранять осанку

ВРЕДНО долго сидеть в интернете, слушать громко музыку, ненормативно общаться

НЕЙТРАЛЬНО

ПОЛЕЗНО находиться на сайтах развивающие реакцию

не ну я хз че написать так что третье сам подумай))

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).