Программы линейной и разветвляющейся структуры. Вычислить значение выражения - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста решить задачу, что на скрине ниже. И, если можно, к ним сделать блок-схемы. Заранее спасибо

Решение задачи: «Программы линейной и разветвляющейся структуры. Вычислить значение выражения»

Листинг программы

Var
  a,b,u: Real;
BEGIN
Repeat
 Writeln('Введите U = '); Readln(u);
 Writeln('Введите A = '); Readln(a);
 Writeln('Введите B = '); Readln(b);
 If (Sin(a-pi*Sqr(b)/Cos(a-pi*Sqr(b))))<0 Then
 Writeln('Данные некорректны, введите еще раз');
until (Sin(a-pi*Sqr(b)/Cos(a-pi*Sqr(b))))>0;
Writeln('t= ',(u*((Sin(a-pi*Sqr(b))/Cos(a-pi*Sqr(b)))/2)):2:2);
Readln
END.

Объяснение кода листинга программы

Объявляются три переменные типа Real: a, b и u.
В цикле Repeat пользователю предлагается ввести значения переменных U, A и B.
Вычисляется значение выражения Sin(a-piSqr(b)/Cos(a-piSqr(b))) и проверяется условие: если оно меньше нуля, то выводится сообщение о некорректных данных и цикл повторяется.
Когда значение выражения больше нуля, выводится результат вычисления выражения u(Sin(a-piSqr(b))/Cos(a-pi*Sqr(b)))/2.
Цикл заканчивается вызовом функции Readln для чтения следующего ввода пользователя.