Пример программы для вычисления количества молей в навеске вещества

uses
  WinCrt;
const
  Na=6.022e23;
var
  Mass: real;
  MolMass: real;
  Mols: real;
begin
  read (Mass, MolMass);
  Mols:=Mass/Molmass*Na;
  write (' В ', Mass,' г вещества');
  write (' с молекулярной массой', MolMass);
  write (' ', Mols,' молекул');
end.

Пояснения

Структура программы
Uses
const
Правила записи имен
Правила записи чисел
var
real
begin
read
Присвоение (:=)
Арифметические выражения
write
end