Var

a,b,c:integer;

begin

a:=−41;

b:=abs(a);

writeln('abs(−41)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

При запуске программы вывод на экран:

abs(−41)=

sqr(b)=

sqr(b+b)=

​

var
a:real;
b:real;
c:real;
x1,x2,x3:integer;
y1,y2,y3:integer;
p:real;
s:real;
begin
writeln('первые координаты треугольника x ');
readln(x1);
writeln('вторые координаты треугольгика x ');
readln(x2);
writeln('третьи координаты треугольгика x ');
readln(x3);
writeln('четвертые координаты треугольгика y ');
readln(y1);
writeln('пятые координаты треугольгика y ');
readln(y2);
writeln('шестые координаты треугольгика y ');
readln(y3);
a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Периметр = ',p:2:0);
writeln('Площадь=',s:1:2);
readln;
end.

Алгоритм месяц

1Открыть программу paint

2Выбрать  снизу нужный цвет

3Взять инструмент «кривая линия» и нарисовать линию

4Затем оттянуть её (сделать полукругом)

5Взять снова эту линию и повторить то же самое

6Тапнуть по инструменту лупа и проследить, чтобы не было щелей между линиями

7Выполнить заливку »месяца»

Алгоритм цветок

Повторяем пункты 1 и 2

3 Берём инструмент круг и рисуем круг

4 Далее рисуем вокруг него ещё круги (лепестки)

5 выполняем заливку нужным цветом

6 выбираем инструмент линию и рисуем стебель

Алгоритм для колобка

Повторяем пункты 1 и 2

3 Выбираем инструмент круг и рисуем круг

4 Этим же инструментом рисуем глаза и нос

5 Выполняем заливку нужным цветом

6 Берём инструмент кривая линия и рисуем улыбку(растягиваем хоть до ушей)

7 Берём инструмент карандаш и рисуем недостающие части тела