Разветвляющийся алгоритм

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

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.