var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
Карп
кара
кора
коза
...
паук
парк
пара
фара
фура
мура
муха
...
лужа
ложа
кожа
кора
гора
горе
море
Ответ в прикрепленном файле
Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
writeln('Сумма двух чисел кратна пяти.')
else
writeln('Сумма двух чисел не кратна пяти.');
end.
Var s: string; i, count: integer;
begin
write('Введите текст: '); readln(s);
for i := 1 to length(s) do
if(s[i] <> ' ') then inc(count);
writeln('Кол-во символов: ', count);
<span>end.</span>