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