от точки во всех фигурах прочертил линию.
на пример:чертишь черту у фигуры номер один и получается квадрат.___
|. | с 3 получается надо..
-----. раскрасить.
Program dz2;
Var i:byte;
s:integer;
Begin
S:=0;
For i:= 10 to 99 do
If i mod 3=0 then
S:=s+i;
Writeln('Сумма двухзначных чисел кратных 3 =',s);
End.
var
n, a, b, c, d: <em>real</em>;
begin
try
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
read(input, n, a, b, c, d);
write(output, trunc(a * b * 2 * n * c / d) + 1);
finally
try
close(input);
close(output);
except
end;
end;
end.