Var
a:integer;
begin
Read(a);
if (a < 18) then Writeln('Вы не совершеннолетний')
else Writeln('Вы совершеннолетний')
end.
От кнопки Home , это же очевидно.
((1&0)v1)&(1v0) = ((0)v1)&(1v0) = (0v1)&(1) = (1)&1 = 1&1 = 1
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.