Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
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>
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.