// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
Пппппввллнлнн вот такие буквы
Program HelloWorld;
var S: double;
begin
writeln('Введите массу тела:');
readln(S);
writeln('Масса кислорода и атомов равна:');
S:=S*0.68;
writeln(S:15:2);
end.
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>