Если x>0Если x>0program z1;var x,y:integer;beginwriteln('Введите число x');readln(x);if x>0 then y:=x*3;writeln(' y=',y);end.Если x=<0program z2;var x,y:integer;beginwriteln('Введите число x');readln(x);if x=<0 then y:=x*3;writeln(' y=',y);end.Если хочешь увидеть блок-схему, создавай отдельный вопрос