Для начала определяем 3 переменных: для стоимости диска, имеющихся у нас денег и сдачи. Если стоимость диска больше чем у нас денег, то выводится сообщение о недостатке денег для покупки, если же денег хватает или ровно столько, сколько нужно, то выводим сдачу. Всё что иначе - ошибка
program primer;
Var m,n,x:integer;
begin
writeln('Введите стоимость диска');
readln(m);
writeln('Введите количество имеющихся денег');
readln(n);
if m>n then
write('У вас недостаточно денег для покупки')
else if n>=m then begin
x := n-m;
writeln('Ваша сдача ',x);
end
else
write('Ошибка');
end.
Объяснение:
Для начала определяем 3 переменных: для стоимости диска, имеющихся у нас денег и сдачи. Если стоимость диска больше чем у нас денег, то выводится сообщение о недостатке денег для покупки, если же денег хватает или ровно столько, сколько нужно, то выводим сдачу. Всё что иначе - ошибка
var m:integer;
t:string;
begin
readln(m);
case m of
1: writeln('Январь');
2: writeln('Февраль');
3: writeln('Март');
4: writeln('Апрель');
5: writeln('Май');
6: writeln('Июнь');
7: begin
writeln('Где вы желаете провести отпуск?');
readln(t);
writeln('Июль вы проведете ',t);
end;
8: writeln('Август');
9: writeln('Сентябрь');
10: writeln('Октябрь');
11: writeln('Ноябрь');
12: writeln('Декабрь');
else
writeln('Введено некорректное число');
end;
end.