Переписать, исправив ошибки в программе: program a; var 2b, a1: int; begin read (a1) 2b : = a1 + 5; a1 : = 2b : 2; write (2b, a1) end.

Programa; var   b, a1: real; begin read(a1)   ; b : = a1 + 5; a1 : = b /2; write  (b, a1); end.

1Тема проекта которую я выбрал: програмист

2почему выбрал эту тему: Потому что прогромисты будет очень нужны в будущем

3 Что нового узнал чему научился: Что програмисты работают в гаджетах и они умеют делать игры и тд

4 Как нашёл нужную информацию: Я узнал новую информацию от родителей

5 Как сохранил информацию: Я сохранил информацию в папке и всё

6: Каким оброзом переносили лучшее: В созданиех проектах

7 Что удалось выполнить лучшее: Удалось лучшее выполнить это создание проекта

8 Что не смогли сделать в проекте: Нам не удалось создать приложение

9 Каковы впечатление отвыполнение проекта: Не было впечатление Потому что это было не сложна

Объяснение:

Надеюсь памог друг до свидание если отправь+

Объяснение:

це перше

program CalculateSegmentLength;

uses Math;

var

 a, b, c, ab: integer;

begin

 writeln('Ввести значення А: ');

 readln(a);

 writeln('Ввести значення B: ');

 readln(b);

 writeln('Ввести значення C: ');

 readln(c);

 ab := Round(Sqrt(a * Sqr(c)) + b * Sqr(c));

 writeln('Довжина відрізка: ', ab);

end.

це 2

program CheckValues;

uses Math;

var

 a, b, c: integer;

begin

 writeln('Ввести значення А: ');

 readln(a);

 writeln('Ввести значення B: ');

 readln(b);

 writeln('Ввести значення C: ');

 readln(c);

 if a = b then

   writeln('Yes')

 else

   writeln('NO');

end.

це 3

program PrintFavoriteMonth;

var

 m: string;

 i: integer;

begin

 writeln('Який ваш улюблений місяць в році? ');

 readln(m);

 

 for i := 1 to 10 do

   writeln(m);

end.