Анимируйте полоски на дороге

// 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 название;

var a, b, s, p:integer;

begin

writeln ('Введите число a');

readln (a);

writeln ('Введите число b');

readln (b);

s:=a+b;

p:=a*b;

writeln ('Сумма чисел равна:', s);

writeln (Произведение чисел равно:', p);

end.

Объяснение:

/ - деление.

* - умножение.

sqrt - квадратный корень (всё что будет в корне заключается в скобки).

sqr - квадрат (всё что возводится в квадрат заключается в скобки).

В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).

Переменной s присваивается сумма переменных a и b.

Переменной p присваивается произведение переменных a и b.

Затем, выводится ответ.