Информацию, важна и существенна для настоящего времени называют: объективной

достоверной

актуальной

субъективной

{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.

{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
   for i:=0 to n-1 do
   begin
   write ('Введите ', i+1, ' число: ');
   readln (a[i]);
   end;
 for i:=0 to n-1 do
 begin
 writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
 inc (sum, trunc(a[i]));
 end;
write ('Сумма целых частей: ', sum);
end.

{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
  if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
  write ('Такой треугольник не существует')
  else begin
   p:=(a+b+c)/2;
   write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
  end;
end.

//PascalABC.NET 3.2 сборка 1318

uses
  system;

type
  animal=record
    ani:string;
    name:string;
    yearOfBrith:integer;
    weight:real;
    food:real;
    country:string;
end;

    Const
  n=10;
 Var
  zoo:array[1..n] of animal;
  i,counter:integer;
  coun:string;
begin
for i:=1 to n do
  begin
    writeln('Данные о животном #',i);
    readln(zoo[i].ani);
    readln(zoo[i].name);
    readln(zoo[i].yearOfBrith);
    readln(zoo[i].weight);
    readln(zoo[i].food);
    readln(zoo[i].country);
  end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.