Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<span>using</span><span>System</span><span>;</span>
<span>class</span> Summa <span>{</span><span>static</span><span>void</span> Main<span>(</span><span>)</span><span>{</span><span>int</span> n <span>=</span> Convert<span>.</span><span>ToInt32</span><span>(</span>Console<span>.</span><span>ReadLine</span><span>(</span><span>)</span><span>)</span><span>;</span><span>int</span> i<span>;</span><span>int</span> sum <span>=</span><span>0</span><span>;</span><span>for</span><span>(</span>i<span>=</span><span>1</span><span>;</span> i <span><=</span>n<span>;</span> i<span>++</span><span>)</span><span>{</span>
sum <span>=</span> i<span>+</span>i<span>;</span><span>}</span>
Console<span>.</span><span>WriteLine</span><span>(</span>sum<span>)</span><span>;</span><span>}
</span>