Сделать блок схему,программу ,50 баллов

Question

Сделать блок схему,программу ,50 баллов

---

Answer 1

var x,y:integer;

begin

readln (x);

if x > 5 then y:=3 * x + 2

else y:= 2 * x;

writeln(y)

end.

---

Comments

программу на QuickBasic

---

А вот это надо писать сразу... Переделывать не буду...