АБВГДЕЁЖЗИЙКЛМНОПРСТ....
АСКАР
1 19 12 1 18
11912118
81121911
БУКВА А ПОД НОМЕРОМ 1
Var a:integer;
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
<span>end.
</span>
Var
a,b,c,k:integer;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b) then begin
writeln('треугольник существует');
k:=1
end
else writeln('треугольник не существует');
if (a=b)and(a=c) and (k=1) then
writeln('равносторонний');
if (((a=b)and(a<>c))or((c=b)and(c<>a))or((c=a)and(c<>b)))and (k=1) then
writeln('равнобедренный');
if (a<>b)and(c<>b)and(a<>c)and (k=1) then
writeln('разносторонний')
<span>end.</span>
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
S:=S+B*B;
WriteLn('S = ',S);
End.