Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
<span>end. </span>
Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
<em>var a, b, n, i:integer;</em>
<em>begin</em>
<em> b:=-1;</em>
<em> for i:=1 to 10 do</em>
<em> begin</em>
<em> a:=a+b;</em>
<em> b:=b+3;</em>
<em> end;</em>
<em> writeln (a);</em>
<em>end.</em><span><em> </em></span>
<span>(3*3 + 3) :3 = 4............................................</span>