Решите задачи по программированию в паскаль
1) Какое число баранов на d баранов больше чем 18 баранов?
2) Дана площадь S окружности. Найти ее радиус

Предыдущий
вопрос Следующий
вопрос

Пример решения задачи 1:

program SheepCount;
var
d, totalSheep: Integer;
begin
writeln('Введите количество баранов больше чем 18: ');
readln(d);

totalSheep := d + 18;

writeln('Общее количество баранов: ', totalSheep);
readln;
end.

Пример решения задачи 2:

program CircleRadius;
const
pi = 3.14159;
var
S, radius: Real;
begin
writeln('Введите площадь окружности: ');
readln(S);

radius := sqrt(S / pi);

writeln('Радиус окружности: ', radius:0:2);
readln;
end.