program p1;
var
x:integer;
y:real;
begin
WriteLn('Введите число');
ReadLn(x);
if x <= 0 then
y:=3*x;
end;
if x > 0 then
y:=1/x;
WriteLn(y);
end.
program p1;
var
x:integer;
y:real;
begin
WriteLn('Введите число');
ReadLn(x);
if x <= 0 then
begin
y:=3*x;
end;
if x > 0 then
begin
y:=1/x;
end;
WriteLn(y);
end.