Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.
<em>На Паскале:</em>
var x: integer;
begin
writeln('Введите число: ');
readln(x);
if x mod 9=0 then
writeln('Число кратно 9')
else
writeln('Число не кратно 9');
end.
Program DZ;
var n: longint;
begin
read (n);
if n mod 2 <> 0 then n:=n-12;
write (n);
end.