Слово "слон" если лишнее надо убрать
Var
i:integer;
begin
for i=1 to 20 do
write(i:3);
end.
(i:3 - вывод i на 3 позициях( т. к. если выводить подряд, то все будет без пробелов))
Во-первых, от пользовательских настроек курсора, во-вторых, от текущего положения\состоятия мыши: обычное, выполняется программа, на гиперссылке или другом объекте, пригодном для взаимодействия, при редактировании текста, при изменении размера окна, и других.
--------------
Из всего этого спокойно выражаются углы.
------------------------
var s,a,b,c,ua,ub,uc,otn:real;
//-----------------
function arcsin(x:real):real;
begin
arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;
//---------------------
function deg(x: real):real;
begin
deg:=round(1000*x*180/pi)/1000;
end;
//-------------
begin
readln(s,a,c);
ub:=arcsin(2*s/c/a);
b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));
otn:=b/sin(ub);
uc:=arcsin(c/otn);
ua:=arcsin(a/otn);
writeln('альфа= ',deg(ua),'°');
writeln('бета= ',deg(ub),'°');
writeln('гамма= ',deg(uc),'°');
end.
Var i,s: integer;
begin
i:=30; s:=0;
repeat
s:=s+i;
i:=i+5;
until i>60;
writeln('сумма = ',s);
<span>end.
</span>