Написать программу вычисления стоимости покупки с учетом скидки 3% сумма больше 200 рублей

ой, извините, небольшая ошибка: там где "i*0,03" замените на "i-(i*0,03)"

То, что написано "для Delphi" можно спокойно запустить и на паскале. Так что то, что вы написали совершенно не нужно и только путает человека.

Да и программа у Вас не правильная

Для PascalABC:program Project1;var i:real;beginwrite('Введите стоимость товара ---> ');readln(i);writeln('С учётом скидки товар будет стоить ', i*0,03, ' рублей');end.Для Delphi:var i:real;beginwrite('Vvedite stoimost tovara ---> ');readln(i);writeln('S ychetom skidki tovar bydet stoit ', i*0,03, ' ryblei');readln;end.Написал два варианта, так как синтаксис и некоторые моменты немного отличаются с использованием Delphi и PascalABC.

Наверное, имелось ввиду, что скидка будет, если сумма более 200 рублей?var x: integer;begin  write('Введите цену: '); read(x);  if(x > 200) then writeln('Скидка 3%! Стоимость покупки:', (x * 0.97))  else writeln('Скидки нет! Стоимость покупки: ', x);end.