var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Чтобы программировать и создавать программы
#include <iostream>
#include <cmath>
using namespace std;
int main() {
double x=12.3,y,z;
y = sqrt(pow(x,3)/10) + exp((15*pow(x,4))/(pow(x,5) - 2.5));
z = sqrt(abs(pow(x,3) - 0.53));
cout << "Y: " << y << endl << "Z: " << z;
}
20 символов, тк если 40 разделить на 2 будет 20