Вот способ, гораздо удобнее:
1) var i:integer;
begin
for i:=1 to 6 do
writeln('"Я люблю свою Родину!"');
end.
2)var i:integer;
begin
for i:=1 to 6 do
write('"Я люблю свою Родину!" ');
end.<span>
</span>
Var
k, h, v, s : real;
begin
write('введите высоту h: ');
readln(h);
write('введите радиус основания: ');
readln(k);
v := 1 / 3 * h * pi * sqr(k);
s := pi * k * (k + sqrt(sqr(h) + sqr(k)));
writeln('площадь полной поверхности: ', s:6:2);
writeln('объем: ', v:6:2);
readln
end.
данное в условии число является шестнадцатеричным. Переведем его в десятичную систему счисления, записав в стандартном виде
E*16^3+4*16^2+1*16^1+A*16^0+1*16^-1+2*16^-2
Вместо буквы Е подставим число 14, а вместо буквы А подставим число 10, перемножим и получим ответ 58394,0703125