Готово.......................
А1 - 2
а2 -3
а3 - 3,4,5
а4 - 1
а5 - 3
а6 - 4
а7 - 5
а8 - 4
а9 - 1,2,3,4,5
а11 - 10
а12 - разрядом???
Только 1 задание сделаю
1 5 7 9 12
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>