Var a, b:real;
begin
readln(a, b);
writeln('Площадь равна ', a*b);
writeln('Периметр равен ', 2*(a + b));
end.
Обьект - обьект +1000000000000000000!!!
посчитаем количество символов в тексте -38
на кодирование 1 символа идет 1 байт , получается 38 байт
переведем байты в биты: 38*8=304 бита это и есть ответ
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>