Var s,i: real;begini:=1;s:=12;if s<=100 then i:=i+1 elses:=1.2*s+2;writeln(s);<span>end.
Так попробуй</span>
простые сложные состав количество посылок характер логического следования
Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.