4. Таблица содержит данные об изменении курса долара. Дата Стоимость Изменение курса доллара 25.06.2017 26.06.2017 27.06.2017 28.06.2017 29.06.2017 30.06.2017 01.07.2017 327 326 325 322 323 321 322 Постройте график, немользуя данные таблицы, и укажите, (а) заголовок диаграммы; b) легенду; с) подписи осей.

Program SummaDrobi;
// это необязательная строчка с названием программы 
var a, b, c, d, n, m: integer; 
// это объявление 6-ти переменных целого типа для хранения данных
begin 
writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:');
// это вывод на экран текста
a := 2; b := 5; c := 3; d := 7;
// это присвоение значений в переменные из самой 
// программы (ввод данных с клавиатуры отсутствует)
writeln ('Первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d);
// это уже вывод обработанной информации на экран
writeln ('Теперь найдём сумму дробей ');
n := a*d; m := c*b; 
// это обработка данных перед выводом на экран
writeln ('Конечная несокращённая дробь равна: ', n+m, '/', b*d);
// это вывод на экран конечного решения
end.

Результат:
Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:
Первая дробь равна: 2/5 вторая дробь равна: 3/7
Теперь найдём сумму дробей 
Конечная несокращённая дробь равна: 29/35

Var a,b,c,max,two: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
if max=a then
begin
two:=max;
if c < b then two:=b;
if c > b then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=b then
begin
two:=max;
if c < a then two:=a;
if c > a then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=c then
begin
two:=max;
if a < b then two:=b;
if a > b then two:=a;
writeln(max,'+',two,'=',max+two);
end;
end.