Разработайте алгоритм и напишите программу, которая вычисляет стоимость покупки с учетом скидки. Скидка в 10% предоставляется в том случае, если стоимость покупки больше 1000 руб.

program z; var k, i:integer; p, s:real; begin Write ('введите количество товаров'); readln (k); s:=0; For i:=1 to k do begin Write ('введите стоимость товара'); read (p); s:=s+p; end; if s>1000 then s:=0,9s; Write ('Стоимость покупки = ', s); End.