12. Составить блок-схему и написать программу вычисления значения функции: СРОЧНО!!!...

Question

12. Составить блок-схему и написать программу вычисления значения функции:
СРОЧНО!!! ПоЗяЗя 30 БАЛОВ

---

Answer 1

(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.

---