2 простых задачки

[Prodote_Privet]

Ребят,кто может помочь? Имеется 2 задачи, условия и их физические решения .Хотелось бы попросить помощи в их оформлении на языке Паскаль, Буду очень благодарен

Задача 1
Имеется квадратный лист картона со стороной а = 24. Из листа делают коробку следующим образом: по углам вырезают четыре квадрата со стороной b<=a/2 и склеивают коробку с открытым верхом по сторонам вырезов

. Математическая модель
с=a-2*b - длина стороны дна,
S=c2 -площадь дна,
V=S*b =(a-2*b)2*b - объем (предмет оценки),
Где а - длина стороны картонного листа, b - длина выреза.
(Символика может быть иная).

Задача 2

Определите скорость движения планет по орбите. Для этого составьте компьютерную модель Солнечной системы.
Постановка задачи
Цель моделирования — определить скорость движения планет по орбите.
Объект моделирования — Солнечная система, элементами которой являются планеты. Внутреннее строение планет в расчет не принимается. Будем рассматривать планеты как элементы, обладающие следующими характеристиками:
название;
R - удаленность от Солнца (в астрономических единицах;
астроном. ед. — среднее расстояние от Земли до Солнца);
t - период обращения вокруг Солнца (в годах);
V - скорость движения по орбите (астр.ед./год), предполагая, что планеты
движутся вокруг Солнца по окружностям с постоянной скоростью.
Разработка модели
Исходные данные:
R - расстояние от планеты до Солнца,
t - период обращения планеты вокруг Солнца.
Т.к. планеты движутся вокруг Солнца по окружностям с постоянной скоростью, значение скорости найдем по формуле:

V=S/t = (2*ПИ*R)/t

[rubius2008]

var a,b,c,S,V:real;
begin
   writeln('a = '); readln(a);
   repeat
       writeln('b (b<=',a/2,') = '); readln(b);
   until b<=a/2;
   c:=a-2*b;
   S:=c*c;
   V:=S*b; writeln('V = ',V:0:2);
   readln; 
end.

Если еще что-то нужно вывести на экран, по аналогии как для V, воспользуйтесь writeln.
2 попробуйте сами

[Prodote_Privet]

rubius2008 благодарю
и всё же хотелось бы и решение 2
ап

[Диман56]

Решение сейчас предоставлю)

[Диман56]

Program PlanetbI;
var R,t:integer; v:real;
BEGIN
writeln('Введите радиус орбиты и время обращения: ');
readln(R,t);
v:=(2*pi*R)/t;
writeln('Скорость обращения равна:',v);
END.