Дана программа на языке программирования Паскаль. Запиши данную программу и запусти.

uses crt;

var

mas, A: array[1..10] of real;

begin

clrscr;

mas[1]:=13;

mas[5]:=31;

mas[9]:=79;

A[1]:=(mas[9]-mas[1])*mas[5];

write(A[1]:5:0);

readkey;

end.