# data[].attributes.headline
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

# data[].attributes.subject
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

# data[].attributes.body
Program If_3;
var
 a, b, c, min, max :integer;
begin
 write('Введите три числа: ');
 readln(a,b,c);
 if (a > c) and (a > b) then max := a
   else if b > c then max := b
     else max := c;
 if (a < c) and (a < b) then min := a
   else if b < c then min := b
     else min := c;
 writeln('Наименьшее число: ', min);
 writeln('Наибольшее число: ', max);
end.

# data[].attributes.headline
Задача 1(1б)

# data[].attributes.subject
Задача 1(1б)

# data[].attributes.body
Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.

# data[].attributes.body
Дана довжина ребра куба a. Знайти об'єм куба V = a^3 і площу його поверхні S = 6 · a^2.

# data[].attributes.headline
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

# data[].attributes.subject
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

# data[].attributes.body
Program If_1;
var
  a: integer;
begin
  readln(a);
  if a > 0 then Inc(a);
  write(a);
end.

# data[].attributes.body
Дано два ненульових числа. Знайти суму, різницю, добуток і частку їх квадратів.

# data[].attributes.body
Дано координати трьох вершин трикутника: (x1, y1), (x2, y2), (x3, y3). Знайти його периметр і площу, використовуючи формулу для відстані між двома точками на площині . Для знаходження площі трикутника зі сторонами a, b, c використовувати формулу Герона: S = √ (p ⋅ (p - a) ⋅ (p - b) ⋅ (p - c)), де p - напівпериметр.

1)Для того, щоб знайти периметр трикутника, знаходимо відстані між усіма вершинами (адже відстані між вершинами це і є сторони) за формулою √ ((x2 - x1)^2 + (y2 - y1)^ 2), а потім підсумовуємо їх.
2)Для того, щоб знайти площу, використовуємо формулу Герона.

# data[].attributes.headline
Розгалуження

# data[].attributes.subject
Розгалуження

# data[].attributes.body
Опрацювати слайди 23-43

# data[].attributes.attachment_link.description
Програмування на мові Паскаль Тема 1. Вступ

# data[].attributes.headline
Даны два числа. Вывести большее из них.

# data[].attributes.subject
Даны два числа. Вывести большее из них.

# data[].attributes.body
Program If_2;
var
  a, b: integer;
begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a) else writeln(b);
end.