1)var x,y:integer;
begin
readln(x);
y:=x/2;
writeln(y);
end.
2)
var x,y:integer;
begin
readln(x);
if x>=2 then
y:=x;
else
y:=-1*x;
writeln(y);
end.
3)
var j,i:integer;
begin
for i:=2 to 6 do
begin
j:=(i+1)*5;
i:=i+1;
end;
writeln(j);
end.
Проверь орфографию и добавь стандартное начало