program vndj;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x);
if x<0 then y:=4;
if x=0 then y:=2;
if x>0 then y:=x;
writeln(y);
readln;
end.
Последние условие скорее всего "x>0", ибо ерунда получается
Блок-схему сам рисуй
program vndj;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x);
if x<0 then y:=4;
if x=0 then y:=2;
if x>0 then y:=x;
writeln(y);
readln;
end.
Последние условие скорее всего "x>0", ибо ерунда получается
Блок-схему сам рисуй