Var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
<span><span>while a <> b do
</span><span> if a > b then </span><span> a := a - b
</span><span> else </span><span> b := b - a<span>;
writeln('НОД первой и второй части: ', a);
end.</span></span></span>
открытие, удаление, перемещение, копирование, переименование, редактирование, сохранение.
132456789132456789
132456789132456789
var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin
readln(x);
if x<0 then a[i]:=x;
inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);
end.