Поверено на Паскале АВС

Program PSM;
uses crt;
var
  cena, summa:real;
  kwo,skid : integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln;  writeln;
  writeln('+---------------------------------------------------------------+');
  writeln('|             Приветствуем вас в магазине ТРИЛАЙН!              |');
  writeln('+---------------------------------------------------------------+');
  writeln('|       Введите, пожалуйста, необходимую информацию ниже:       |');
  writeln('+---------------------------------------------------------------+');
  write('       Цена товара:  '); readln(cena);
  write('       Количество единиц товара:  '); readln(kwo);
  write('       Размер скидки в % (0 - если скидки нет) '); readln(skid);
  writeln('+---------------------------------------------------------------+');
  writeln('|                                                               |');
  writeln('|                 Сумма к оплате: ',cena*kwo*(1-skid/100):10:2,'                    |');
  writeln('|                                                               |');
  writeln('+---------------------------------------------------------------+');
end.