Task 2. Write an essay with support of the following questions 1) Have you ever been abroad? If no, where would you like to travel to and why?
2) Do you prefer to travel alone or in a group? Why?
3) Do you prefer to travel by train, bus, plane or ship?
4) Do you prefer traveling by car or by plane?
5) Have you ever been in a difficult situation while traveling?
6) What is the most interesting souvenir that you have ever bought on one of your holidays?
7) What's the most beautiful place you've ever been to?
​

Using System;
public class Test
{
    public static void Main()
    {
    int a, b, c, d, min1, min2, max;
    Console.Write("a = ");
    a = int.Parse(Console.ReadLine());
    Console.Write("b = ");
    b = int.Parse(Console.ReadLine());
    Console.Write("c = ");
    c = int.Parse(Console.ReadLine());
    Console.Write("d = ");
    d = int.Parse(Console.ReadLine());
    if (a < b) min1 = a; else min1 = b;
    if (c < d) min2 = c; else min2 = d;
    if (min1 > min2) max = min1; else max = min2;
    Console.WriteLine("max = {0}", max);
    System.Console.ReadKey();
    }
}

//4)
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
  s, sc: real;

function linelength(x1, y1, x2, y2: integer): real;
begin
  linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;

procedure ger(a, b, c: real);
var
  p: real;
begin
  p := (a + b + c) / 2;
  sc := sqrt(p * (p - a) * (p - b) * (p - c));
end;

begin
  write('1:');readln(x1, y1);
  write('2:');readln(x2, y2);
  write('3:');readln(x3, y3);
  write('4:');readln(x4, y4);
  ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3));
  s := s + sc;
  ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3));
  s := s + sc;
  writeln(s);
end.
//3)
var
  a, b, c: integer;

function sce(var a: integer): integer;
var
  sc, c: integer;
begin
  while a <> 0 do
  begin
    c := a mod 10;
    a := a div 10;
    sc := sc + c;
  end;
  sce := sc;
end;

begin
  read(a, b, c);
  if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else
  if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else
  if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else
  if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны');
end.