(*Объявление переменных*)
var
var1,var2,var3, result:real;
begin
(*Ввод значений*)
readln(var1, var2, var3);
(*Считаем натуральный лог. от квадрата суммы var1 и var3 *)
result := ln((var1 + var2) * (var1 + var2));
(*Выводим результат*)
writeln('Результат = ', result:2);
(*Выводим все введенные числа*)
writeln('Число 1 = ', var1:2);
writeln('Число 2 = ', var2:2);
writeln('Число 3 = ', var3:2);
end.
fpc 3.0.0 - compiler