Вычислить значение выражения на языке паскаль

[Black Panther]

помогите плис))))

[Mad_Cat]

var a,b,t:real;
begin
read(a,b,t);
write(abs(3*a/Sqrt(b-3*t)+7)-3);
end.

[BDA]

Black Panther, и не забудьте проверить подкоренное выражение на положительность.

[Black Panther]

a,b,t,y:real;
sl1,sl2:real;
begin
writeln('y=abs((3*a/sqrt(b-3*t))+7) -3');
writeln('Vvedite cifri');
writeln('Vvedite a');
readln(a);
writeln('Vvedite b');
readln(b);
writeln('Vvedite t');
readln(t);
if (b-3*t>=0) then
begin
sl1:=(3*a/sqrt(b-3*t))+7;
if sl1<0 then sl1:=-sl1;
sl2:=7;
y:=sl1+sl2-3;
writeln('y=',y:5:3);
if y<0 then writeln('y menche 0');
if y=0 then writeln('y raven 0');
if y>0 then writeln('y bolshe 0');
end
else
begin
if b-3*t<0 then writeln(' Nekorrektni vvod – b-3*t ne dolgno bit otricatelnim');
end;
readln;
end.



как бы один чел составил вот такую программу на эту задачу. И у меня не совсем получается составить блок схему к этой программе с тремя If. не могли бы вы помочь

[BDA]

Во-первых, используйте кнопочку # для оформления кода.
Во-вторых, в коде есть ошибки и лишние проверки.

var
  a, b, t, y: real;

begin
  writeln('y=abs((3*a/sqrt(b-3*t))+7) -3');
  writeln('Vvedite cifri');
  writeln('Vvedite a');
  readln(a);
  writeln('Vvedite b');
  readln(b);
  writeln('Vvedite t');
  readln(t);
  if (b - 3 * t > 0) then
  begin
    y := abs((3 * a / sqrt(b - 3 * t)) + 7) - 3;
    writeln('y = ', y:5:3);
    if y < 0 then
      writeln('y menche 0')
    else if y > 0 then
      writeln('y bolshe 0')
    else
      writeln('y raven 0');
  end
  else
    writeln(' Nekorrektni vvod – b-3*t ne dolgno bit nepolozitelnim');
  readln;
end.

b - 3 * t > 0 - т.к. на 0 делить нельзя
if b-3*t<0 then - не нужно делать проверку, т.к. это ветка else
почему-то не используется abs - модуль числа
писать 3 if не очень красиво - лучше использовать if...else

В-третьих, для построения блок-схем лучше воспользоваться специальным программным обеспечением, FCEditor, например.

[Black Panther]

Спасибо большое)выручил BDA