Пройдите тест по информатике Вот ссылка: https://kpolyakov.spb.ru/school/test8a/29x.htm

1. Три ряда и два столбца размечаем :

Столбцы: "Год", "Месяц"

Ряды: "День рождения", "Текущая дата", "Возраст"

2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - соответственно месяц рождения.

3. По формулам заполняем текущую дату в ряде "Текущая дата", формула для столбца "Год":

— "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа.

— "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц.

4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и"Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.

фото закреплено

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше