Сделать блок схему,программу ,50 баллов
var x,y:integer;
begin
readln (x);
if x > 5 then y:=3 * x + 2
else y:= 2 * x;
writeln(y)
end.
программу на QuickBasic
А вот это надо писать сразу... Переделывать не буду...