Составьте программу на паскале, чтобы ПК запросил имя пользователя и его год рождения, подсчитал возраст...

Конечно, давайте создадим программу на языке Pascal, которая выполнит указанные задачи. Программа будет запрашивать имя пользователя и его год рождения, вычислять возраст и выводить различный диалог в зависимости от возраста.

program AgeDialog;

uses
  SysUtils;

var
  name: string;
  birthYear, age, currentYear: integer;

begin
  // Запрашиваем имя пользователя
  Write('Введите ваше имя: ');
  Readln(name);
  
  // Запрашиваем год рождения пользователя
  Write('Введите ваш год рождения: ');
  Readln(birthYear);
  
  // Определяем текущий год
  currentYear := YearOf(Now);
  
  // Вычисляем возраст пользователя
  age := currentYear - birthYear;
  
  // Выводим приветственное сообщение с именем и возрастом
  Writeln('Привет, ', name, '! Вам ', age, ' лет.');
  
  // Варианты диалога в зависимости от возраста пользователя
  if age < 6 then
    Writeln('Вы еще не учитесь?')
  else if (age >= 6) and (age 

program AgeCalculator;

var name: string; birthYear, age: integer;

begin writeln('Введите ваше имя:'); readln(name); writeln('Введите ваш год рождения:'); readln(birthYear);

age := 2022 - birthYear;

if age < 7 then

writeln('Привет, ', name, '! Ты ещё не учишься?')

else if (age >= 7) and (age

program AgeCalculation;

var name: string; birthYear, age: integer;

begin writeln('Введите ваше имя:'); readln(name); writeln('Введите год вашего рождения:'); readln(birthYear);

age := 2022 - birthYear;

writeln('Привет, ', name, '!');

if age < 7 then

writeln('Тебе еще не учиться?');

else if (age >= 7) and (age < 18) then

writeln('Ты учишься в школе/колледже/лицее?');

else

writeln('Ты уже не учишься?');

end.