S:=a*b все просто
a-длина прямоугольника
b-ширина прямоугольника
//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
В граф. вид сами нарисуете (я не кулинар, предупреждаю).
Начало (в кружке)
Цикл начинается:
Берем блин (в квадрате)
Кладем на сковородку (в квадрате)
Переварачиваем (в квадрате)
Кладем на тарелку для блинов (в квадрате)
Цикл кончается
Конец (в кружке)
К циклу прикрутите счетчик и после начала еще 'считывайте' количество блинов
3 6 19 6 15 15 10 11
5 16 8 5 30
18 1 19 20 10 20,
16 19 6 15 15 10 11
4 15 16 10 20.