Basic Pascal Tutorial/Chapter 1/Solution/bg: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Basic Pascal Tutorial/Chapter 1/Solution/bg

New		Line
1	+	<font size='5'></font>
2	+
3	+	## Решение на задачата
4	+
5	+	(author: Tao Yue, state: unchanged)
6	+
7	+	Ето един начин за решаване на заданието за програмиране в предишния раздел.
8	+
9	+	``` pascal
10	+	(* Автор: Tao Yue
11	+	Дата: 19 Юни 1997
12	+	Описание:
13	+	Сума и средно аритметично на 5 зададени числа
14	+	Version:
15	+	1.0 - оригинална версия
16	+	*)
17	+
18	+	program SumAverage;
19	+
20	+	const
21	+	NumberOfIntegers = 5;
22	+
23	+	var
24	+	A, B, C, D, E : integer;
25	+	Sum : integer;
26	+	Average : real;
27	+
28	+	begin (* Main *)
29	+	A := 45;
30	+	B := 7;
31	+	C := 68;
32	+	D := 2;
33	+	E := 34;
34	+	Sum := A + B + C + D + E;
35	+	Average := Sum / NumberOfIntegers;
36	+	writeln ('Number of integers = ', NumberOfIntegers);
37	+	writeln ('Number1 = ', A);
38	+	writeln ('Number2 = ', B);
39	+	writeln ('Number3 = ', C);
40	+	writeln ('Number4 = ', D);
41	+	writeln ('Number5 = ', E);
42	+	writeln ('Sum = ', Sum);
43	+	writeln ('Average = ', Average)
44	+	end. (* Main *)
45	+	```
46	+
47	+	---
48	+	From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 1/Solution/bg", as it stood on 2022-08-20 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).