Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write('S=',((a+b)/2)*sqrt(c*c-((a-b)*(a-b)/4)));
end.
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем
ИНФОРМАТИКА ИНдюкФОРМА ТИК А