Пример программы расчета платежа за коммунальные услуги.
Более сложная программа, в которой мы используем наши знания по использованию уже изученных команд.
Итак…

 
//uses crt;
var
  start, theEnd, grn, kop, raznica, oplata, nominal, sdacha, sdGrn, sdKop: integer;
  za1Kvt: real;

begin
  
  write('Показания счетчика за текущий месяц:');readln(start);
  write('Показания счетчика за прошлый месяц:');readln(TheEnd);
  
  write('Цена за 1 КилоВат:');readln(za1Kvt);
  
  raznica := abs(start - theEnd);
  oplata := trunc(za1Kvt * (raznica) * 100);
    
  grn := oplata div 100;
  kop := oplata mod 100;
  
  writeln('К оплате: ', grn, 'грн. ', kop, 'коп.');
  
  writeln('Номинал купюры:');readln(nominal);
  
  sdacha := nominal * 100 - oplata;
  sdGrn := sdacha div 100;
  sdKop := sdacha mod 100;
  
  write('Сдача:');
  writeln(' ', sdgrn, 'грн. ', sdkop, 'коп.');
  
end.