Дано целое число n увеличить число в 3 раза если число четное . входные данные 4. выводимые данные 12. паскаль.

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var n:=ReadInteger;
  if not Odd(n) then n:=n*3;
  Writeln(n)
end.

Тестовое решение:
4
12

//Pascal ABC.NET v3.1 сборка 1172

var
  n: integer;

begin
  read(n);
  if n mod 2 = 0 then n := n * 3;
  writeln(n);
end.

Пример ввода:
4
Пример вывода:
12

Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.

Объяснение:

Я думаю это майкрасофт ведь он создал персональные компьютеры, игровые приставки и т.п.

 C 2012 года производит собственный планшетный компьютер — Surface. Продукция Microsoft продаётся более чем в 80 странах мира, программы переведены более чем на 45 языков.

Штаб-квартира компании находится в городе Редмонд, штат Вашингтон, США.

Штат сотрудников корпорации на 5 июня 2014 года составляет 127 104 человека[8]. В 2018 году заняла второе место в списке 500 лучших работодателей мира по мнению журнала Forbes[9].

Надеюсь ты оценишь мой ответ ;)