the program calculates the distance

Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

graduation program

uses wincrt;
var
x,y,totalxy : real;
lagi : char;
nama,keterangan,pesan : string[20];

begin
 lagi := 'y';
  while (lagi = 'y') or (lagi = 'Y') do
  begin
 
  write('Masukan Nama Anda : '); readln(nama);
  writeLn;
  write('Hallo ',nama,', Coba kamu');
  WriteLn(' masukan nilai x,y');
  write('masukan nilai x..= '); ReadLn(x);
  write('masukan nilai y..= '); ReadLn(y);
  writeLn;
  Writeln ('================================');
  x:=x*60/100;
  write ('nilaix: ');
  writeln (x:2:2);
  Writeln ('================================');
  y:=y*40/100;
  write ('nilaiy: ');
  writeln (y:2:2);
  Writeln ('================================');
  totalxy:=x+y;
  write ('total_Nilaixy : ');
  writeln (totalxy:2:2);
  Writeln ('================================');
  if (totalxy> 80) then
  begin
  keterangan := 'Anda Lulus';
  pesan :='Selamat dan Pertahankan!';
  end
  else if (totalxy>= 60)and(totalxy<80) then  
  begin
  keterangan :='Anda Cadangan';
  pesan :='Tingkatkan lagi belajarnya';
  end
  else 
  begin  
  keterangan :='Tidak Lulus';
  pesan:='Jangan Menyerah yO.. Coba Lagi';
   
  end;  
  write ('Hasil : ');
  writeln (keterangan);
  write ('Saran: ');
  writeln (pesan);
  writeLn;
  write('Mau hitung lagi apa tidak (y/t), ',nama,' ? ');
  readLn(lagi);
  writeln ('-------------------------------------------------------------');
 end;
end.

Two matrix multiplication program

uses wincrt;
var
a,b,c : array [1..3,1..3] of integer;
i,j,k : integer;

begin
 writeln ('masukan nilai matriks a:');
 for i:=1 to 3 do
  for j:=1 to 3 do
 begin
  write ('data ke_',i,',',j,':');
  readln ( a [i][j]);
 end;

 writeln ('==============');
 writeln ('masukan nilai matriks b:');
 for i:=1 to 3 do
  for j:=1 to 3 do
  begin
  write ('data ke-',i,',',j,':');
  readln (b [i][j]);
  end;

 writeln ('==============');
 writeln (' hasil perkalian matriks a dengan matriks b :');
 for i:= 1 to 3 do
  begin
  for j := 1 to 3 do
  begin
  for k := 1 to 3 do
  c [i,j]:=c[i,j]+a[i,k]*b[k,j];
  write (c [i] [j]:4);
  end;
  writeln;
  end;

end.