Напишите процедуру, которая находит AB+С^T

program ckill;
var o,A,B,C,T:integer;
writeln('o-ответ. Вводи:A,B,C,T');
readln( A,B,C,T);
o:=A*B+c*t;
write(o); 
end;

//процедуры для квадратных матриц
const max=20;
type matr=array[1..max,1..max] of integer;
var x:byte
//ввод матриц
procedure Vvod(var mt:matr);//размер задается в программе 
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to х do
mt[i,j]:=random(5);
end;
//вывод на экран
procedure Vyvod(var mt:matr;c:string);
var i,j:byte;
begin
writeln(c,':');//заголовок типа А*В
for i:=1 to x do
  begin
    for j:=1 to х do
    write(mt[i,j]:5);
    writeln;
  end;
writeln;
end;
//транспонирование
procedure Trans(mt:matr;var mtt:matr);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to х do
mtt[i,j]:=mt[j,i];
end;
//умножение матрицы на матрицу
procedure UmnMatr(m1,m2:matr;var m:matr);
var i,j,k:byte;
begin
for k:=1 to x do
for j:=1 to x do
  begin
   m[k,j]:=0;
   for i:=1 to х do
   m[k,j]:=m[k,j]+m1[k,i]*m2[i,j];
  end;
end;
//сложение матриц
procedure SumMatr(m1,m2:matr;var m:matr);
var i,j:byte;
begin
for i:=1 to х do
for j:=1 to х do
m[i,j]:=m1[i,j]+m2[i,j];
end;