Написать программу которая бы по введеному номеру единицы измерения и массе м выдаваал бы соотв знач массы и кг

Если Вашу программу исправить, это так будет выглядеть:
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

А если написать самостоятельно, я бы сделал так:
var
  a,b,c:real;
begin
  Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
  if (a=b) and (a=c) then
    Writeln('Треугольник равносторонний с периметром ',3*a)
  else Writeln ('Треугольник не равносторонний')
end.

Var ar:array of array of integer;
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while k<>n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while i<>n1 do
 begin;
  writeln;
   while j<>n2 do
    begin;
     ar[i,j]:=random(100)-50;
     write(ar[i,j]:4);
     inc(j);
    end;
   j:=1;
   inc(i);
  end;
i:=1;
j:=1;
while i<>n1 do
 begin;
  while j<>n2 do
   begin;
    if ar[i,j]<0 then b:=true;
    inc(j);
   end;
  if b=false then
   begin;
    writeln;
    writeln(i);
    exit;
   end;
  b:=false;
  inc(i);
  j:=1;
 end;
writeln;
writeln('Все');
end.