Ответ:
program sravn;
uses crt;
var f, t, z: real; // обьявляем переменные типа real
begin
writeln('Enter t');
readln(t); // считывает с клавиатуры t
writeln('Enter z');
readln(z); // считываем с клавиатуры z
if (z<5) then f:= 2*t + z</p>
else if (z > 10) then f:=4*t*sqrt(z) {создали три возможных условия, значение F определяется значением числа z}
else f:=t*(ln(z)/ln(10));
writeln('F =', f :6:6); // Выводим F
end.