Поверено на Паскале АВС
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.
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard