Модуль 3. Задание 6.

Program KASSA;

Var stoim, summa: real;

Begin

Write(‘Введите стоимость покупки’);

Readln(stoim);

Write(‘Введите вносимую сумму’);

Readln(summa);

while (Summa<=0) or(stoim<=0) do

writeln(‘Не корректный ввод. Вводите внимательно!’)

if Summa=stoim

then writeln(‘Спасибо за покупку!’)

else if Summa>stoim

then writeln(‘Возьмите сдачу’, summa-stoim)

else Writeln(‘Доплатите’, stoim -summa)

End.

Начало

Ввод(summa, stoim);

Пока (Summa<=0) or(stoim<=0) повторять

Начало цикла

Вывод(Не корректный ввод. Вводите внимательно!);

Конец цикла;

Если summa= stoim

то вывод(спасибо)

Иначе если summa> stoim

то вывод(Возьмите сдачу summa-stoim руб.)

иначе вывод(Доплатите stoim -summa руб);

Конец.