Нарисовать блок-схему

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.

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 переменных: для стоимости диска, имеющихся у нас денег и сдачи. Если стоимость диска больше чем у нас денег, то выводится сообщение о недостатке денег для покупки, если же денег хватает или ровно столько, сколько нужно, то выводим сдачу. Всё что иначе - ошибка