Ну це коли автор не хоче щоб його (программу, ігру, тд.тп) хтось присвоїв , ну він ставить правила які не потрібно порушувати. Захищати ? Щоб уникнути втрачення своїх прав (т.е. що б хтось не присвоїв цю ігру...)
Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
Нет такого обозначения
a * 5% =a * 5/100
var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.