Пользователь вводит три числа. Увеличьте первое число в два раза, второе числа уменьшите на 3, третье число возведите в квадрат и затем найдите сумму новых трех чисел.программа паскаль, если можно то все расписать по порядку.

var

a,b,c:integer; //заводим 3 переменные

begin

   { Делаем запрос на ввод 3 чисел с клавиатуры,

   и записываем их по порядку в

   перечисленные переменные }

   readln(a,b,c);

   a:=a*2; //Увеличели в два раза

   b:=b-3; //Уменьшили на 3

   c:=c*c; //возвели в квадрат

   

   a:=a+b+c; // Нашли сумму 3 чисел

   writeln (a); // вывод суммы на экран

end.

// PascalABC.NET

begin

 var (a, b, c) := ReadReal3('Введи три числа:');

 (a, b, c) := (2 * a, b - 3, c * c);

 Print(a + b + c)

end.

Для введення в форму даних, які можуть мати тільки одне з двох допустимих значень, призначені елементи управління CheckBox, або прапорці. Прапорці дозволяють користувачеві дати відповідь на поставлене запитання. У разі позитивної відповіді користувач встановлює прапорець, і він набуває вигляду квадрата, в якому розміщена галочка. При невстановленому прапорці він має вигляд порожнього квадрата, позначаючи негативну відповідь на поставлене запитання. Можливий ще один стан прапорця, при якому він не визначений. У цьому стані він має вигляд галочки на сірому тлі.

program HomeWork;

var a,b,c,P,Pp,S,Ha,Hb,Hc:real;

begin

   write('Введите стороны треугольника a, b и c (числа через пробел): '); readln(a,b,c);

   P:=a+b+c;

   Pp:=P/2;

   Ha:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/a;

   Hb:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/b;

   Hc:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/c;

   S:=Hc*c/2;

   writeln('Параметры треугольника со сторонами a=', a:0:3, ', b=', b:0:3, ' и c=', c:0:3, ':');

   writeln('Периметр: ', P:0:3);

   writeln('Площадь: ', S:0:3);

   if Pp-a >= 0 then writeln('Высота, опущенная на сторону a: ', Ha:0:3)

   else writeln('Высота, опущенная на сторону a (находится вне треугольника): ', Ha:0:3);

   if Pp-b >= 0 then writeln('Высота, опущенная на сторону b: ', Hb:0:3)

   else writeln('Высота, опущенная на сторону b (находится вне треугольника): ', Hb:0:3);

   if Pp-c >= 0 then writeln('Высота, опущенная на сторону c: ', Hc:0:3)

   else writeln('Высота, опущенная на сторону c (находится вне треугольника): ', Hc:0:3)

end.