Первое слово: =Левсимб(н8,найти(" ";H8)-1)
Второе слово: =Правсимб(н8;найти(" ";H8)-1)
Схема составлена с помощью цикла Пока
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.