Срочно нужно!!!Помогите!!!
1.Составить
программу, которая спрашивает возраст человека и, если ему 18 лет и больше,
сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае
– “К сожалению, водить автомобиль Вам рановато”.

2.
Определить номер подъезда девятиэтажного дома по указанному номеру квартиры N.
Считать, что на каждом этаже находится M квартир.

3.
Написать программу, которая бы запрашивала целое число и выводила любое его
значение, кроме 13. Если заданное число равно 13, вместо него печатается число
77.


по примеру :
program www;
var x,y: integer;
begin
writeln ('...');
readln (x,y);
if ...( условие) then writeln (значит-то то)
else writeln (иначе-то то)

Для того чтобы решить все эти задачи, нам нужно создать несколько программ на языке Pascal. Я покажу решения по каждому из пунктов:

1. Программа для проверки возраста

Задача: программа должна спросить возраст человека, и если ему 18 лет и больше, вывести сообщение "Замечательно. Вы уже можете водить автомобиль", иначе — "К сожалению, водить автомобиль Вам рановато".

Пример программы:

pascal
program CheckAge;
var
  age: integer;
begin
  writeln('Введите ваш возраст:');
  readln(age);
  
  if age >= 18 then
    writeln('Замечательно. Вы уже можете водить автомобиль')
  else
    writeln('К сожалению, водить автомобиль Вам рановато');
end.

Объяснение:

• Программа сначала запрашивает ввод возраста.
• Если возраст больше или равен 18, то выводится одно сообщение, если меньше — другое.

2. Определение номера подъезда в девятиэтажном доме

Задача: нужно определить номер подъезда, зная номер квартиры $N$ в девятиэтажном доме, где на каждом этаже $M$ квартир.

Для решения задачи нужно знать, что в девятиэтажном доме (9 этажей) и на каждом этаже $M$ квартир. Таким образом, можно определить, на каком этаже находится квартира, а значит — и номер подъезда. Предположим, что на каждом этаже $M = 3$ квартиры.

Пример программы:

pascal
program ApartmentEntrance;
var
  N, M, entrance: integer;
begin
  writeln('Введите номер квартиры:');
  readln(N);
  writeln('Введите количество квартир на этаже:');
  readln(M);
  
  entrance := (N - 1) div (M * 9) + 1;  // Номер подъезда, где (N - 1) делим на количество квартир в подъезде и добавляем 1
  writeln('Номер подъезда: ', entrance);
end.

Объяснение:

• Мы делим номер квартиры $N$ на количество квартир, которые могут быть в одном подъезде. Допустим, если в доме 9 этажей и на каждом этаже 3 квартиры, то в одном подъезде будет $9 \times 3 = 27$ квартир.
• Затем, используя целочисленное деление, мы определяем номер подъезда.

3. Программа, которая выводит любое число, кроме 13

Задача: программа должна запросить у пользователя целое число, и если это число 13, вывести 77, иначе вывести введённое число.

Пример программы:

pascal
program CheckNumber;
var
  num: integer;
begin
  writeln('Введите целое число:');
  readln(num);
  if num = 13 then
    writeln(77)
  else
    writeln(num);
end.

Объяснение:

• Программа запрашивает ввод числа.
• Если число равно 13, программа выводит 77.
• В противном случае выводится введённое число.

Эти три программы решают задачи по очереди: первая проверяет возраст, вторая — определяет подъезд в доме по номеру квартиры, а третья — заменяет число 13 на 77. Надеюсь, это поможет!