program vozrast;
var
o,s:real;
begin
writeln('Введите сколько лет Отцу');
readln(o);
if O>28 then
begin
S:=O-28;
writeln ('Сыну ',s,' лет');
end
else
writeln('Ошибка');
end.
полащадь круга=pi*(r^2), квадрата=а^2-> при радиусе равном 1=3,14.... квадрат при той же стороне равен площади 1см^2 ответ круга больше)
VAR a,b:INTEGER;
begin
Readln(b);
a:=b*b*b*b*b*b*b;
writeln(a);
<span>end.</span>
,a,*,b,
Непонятно, зачем тут a и b присваивают значение, возможно обманочка
write(a) - выведет 2
write('a') - выведет букву a
Берем один обрывок и раскрываем в нем все 3 кольца. Получается как бы 3 соединителя и 4 элемента (по 3 закрытах кольца в каждом). 4 соединяются 3-емя без особых проблем.
Вот так: