#include <iostream>using namespace std;int main(){ int n,d; cin>>n>>d; for(int a=0;a<10;a++) {if(d==a)continue;cout<<a<<endl;} return 0;}<span>
</span>
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
Если нужен алгоритм, то так
-4 ! +5 ! +4 ! -10!
Var s : real;
Begin
S:= (1*14-1/3)*52;
Write(s :5:6);
end.
Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все.