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

Наверное, имелось ввиду, что скидка будет, если сумма более 200 рублей?

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

Для PascalABC:

program Project1;
var i:real;
begin
write('Введите цена товара ---gt; ');
readln(i);
writeln('С учётом скидки продукт будет стоить ', i*0,03, ' рублей');
end.

Для Delphi:

var i:real;
begin
write('Vvedite stoimost tovara ---gt; ');
readln(i);
writeln('S ychetom skidki tovar bydet stoit ', i*0,03, ' ryblei');
readln;
end.

Написал два варианта, так как синтаксис и некие моменты немножко отличаются с внедрением Delphi и PascalABC.