Составить программку вычисления цены покупки с учётом скидки. Скидка в 10%

var a,b:real;
begin
writeln(Enter price: );
readln(a);
b:=10;
b:=a/b;
if (agt;1000) then
begin
writeln(Discount 10%);
a:=a-b;
write(Price with discount: ,a:2:2);
readln;
end
else
begin
write(Price: ,a:2:2);
readln;
end;
end.
2-ой вариант исполненья программы:
var
summa, skidka: real;
begin
writeln(Вычисление стоимости покупки с учетом скидки.);
writeln(Введите сумму покупки: );
readln(summa);
if summa gt;1000 then skidka:=10;
writeln(Для вас предоставлена скидка , skidka, %);
writeln(Сумма покупки с учетом скидки: , (summa-(summa*skidka)/100));
end.