Написать алгоритм как в КУМИРЕ делать чашку

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

var    a,b,c,d,x1,x2: real;     beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0  then writeln('только комплексные корни')else

begin

d: =sqrt(d);

x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end;     end.

21, 24, 27, 33, , 36, 39, 42, 48.