Мне к завтрашнему дню надо составить программу в pascal мне решить первое возраст коли x лет возраст миши y лет найти их средний возраст а также определить разницу возраста мальчика от среднего значения исходные данные коле 12 лет миша 17 лет их средний возраст 14 с половиной коля отличается на
-2,5 миша отличается на 2,5 вторая не пользуюсь другими командными надо а равняется авторитет и а 10 за четыре операции

//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.

Смешная задача.
Если каждый год к первоначальной сумме прибавляется S×k/100, то за n лет прибавка составит S×k×n/100, а общая сумма составит S+S×k×n/100.
И эта сумма должна быть больше или равна x×S.
S+S×k×n/100 ≥ x×S
1+k×n/100 ≥ x
k×n/100 ≥ x-1
n ≥ 100×(x-1)/k, округленное до ближайшего большего целого.

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

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (k,x):=ReadReal2('Введите процент k и кратность x:');
  Writeln('Требуется лет: ',Ceil(100*(x-1)/k))
end.

Пример
Введите процент k и кратность x: 13.5 3
Требуется лет: 15