var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
1)
var
a:array [1..4] of char; i:integer;
begin
for i:=1 to 4 do
begin
read(a[i]);
end;
for i:=4 downto 1 do
begin
write(a[i]);
end;
<span>end.</span>
К 1971 году была создана сеть с 23 пользователями в разных концах США. В 1972 году впервые ARPANET была продемонстрирована перед публикой.