(программа диалог с компьютером) пример
Program: P1
var Name: string;
Age: integer;
begin
write ( 'Укажите ваше имя : ') ;
readin (Name) ;
writeln ( 'Здравствуйте , ' , Name) ;
write ( ' Укажите ваш возраст: ') ;
readin(Age);
wrire ( ' Через два года вам будет: ' , Age + 2 ) ;
end.
1)Самостоятельно создать такую программу по примеру ☝️

2) ответить на во что будет, если вместо имени ввести цифры?

что будет, если на во о возрасте ввести букву?​

1. ДЕЗИНФОРМАЦИЯ — сообщение заведомо ошибочных, искаженных, ложных сведений с целью ввести информируемое лицо в заблуждение ( определение из словаря). Здесь главное - цель: ввести в заблуждение. Предоставление недостаточной информации  может быть и ненамеренным, например, по забывчивости или из-за незнания полного объема необходимых сведений. Например написать программу для решения какой-то задачи без указания языка программирования - это случай предоставления неполной информации, но никак не дезинформация.

2. Избыточная информация содержит сведения, не нужные для решения вопроса. Дублирующая - полностью повторяет ранее сообщенное. Например, в задаче нахождения площади поверхности шара кроме формулы для нахождения площади поверхности, сообщается формула для нахождения объема шара - это и есть пример избыточной информации.

3.  Достоверность информации - это её сообщать истинное положение дел. Точность - степень близости информации к истинному положению дел. Например, если на улице идет сильный дождь, информация о том, что идет дождь, достоверна, а информация о том, что этот дождь сильный - точна.
В экономике сообщение о том, что инфляция за год возросла - достоверное, а о том, что она возросла на 3.7% (например) - точна.

Дурацкая по своей трудоемкости задача, если делать её вручную.
А если написать полную программу и вставить туда счетчик вызовов F(n), то окажется, что для вызова F(6) процедура будет вызвана 97 раз. При каждом вызове выводится звездочка, поэтому их будет выведено тоже 97.

Проверка выполнялась по следующей программе:
var
  k:integer;

procedure F(n: integer);
begin
  writeln('*');
  k:=k+1;
  if n > 0 then begin
    F(n - 3);
    F(n - 2);
    F(n div 2);
    F(n div 2);
  end
end;

begin
  k:=0;
  F(6);
  Writeln(k)
end.