сделать Задание !!
Сделать в Worde.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

векторная графика масштабируется без потери качества изображения, но в растровой графике возможно использование более богатой цвтовой палитры.

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей