Лабораторные работы / Программы (Pascal) - 1994 / GIDRA / PACXOD

program pacxod;
{аРбзХв аРбеЮФР (v) зХаХЧ бгЦРойХХ гбваЮЩбвТЮ}
        var pinp,pout,k,v  :real;
        function sgn(ab:real):integer;
        begin
             if ab>0 then sgn:=1;
             if ab<0 then sgn:=-1;
             if ab=0 then sgn:=0;
        end;
begin {ЭРзРЫЮ ЮбЭЮТЭЮЩ ЯаЮУаРЬЬл}
              writeln;
              write('ТТХФШвХ ФРТЫХЭШХ ЭР ТеЮФХ ');readln(pinp);
              write('ТТХФШвХ ФРТЫХЭШХ ЭР ТлеЮФХ ');readln(pout);
              write('ТТХФШвХ ЪЮнддШжШХЭв бгЦРойХУЮ гбваЮЩбвТР ');
              readln(k);
              v:=sgn(pinp-pout)*k*sqrt(abs(pinp-pout));
              writeln('аРбеЮФ =',v:12:5);
end.