Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.
Насколько я понял, задача на алгоритм
1)Открой портфель
2)Собери учебники
3)Собери принадлежности
4)Положи учебники по одному в портфель
5)Положи принадлежности по одной в портфель
6)Закрой портфель.
2 .взять портфель и поставить его на удобное место. Потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. Застегнуть портфель.
Выбирай любой:
a := b * power(c, 2);
a := b * sqr(c);
a := b * exp(ln(с)*2) ;
a := b * (c * c);
program p1;
var
x:integer;
y:real;
begin
WriteLn('Введите число');
ReadLn(x);
if x <= 0 then
begin
y:=3*x;
end;
if x > 0 then
begin
y:=1/x;
end;
WriteLn(y);
end.