Вывести строку, которая встречается более 1-го раза в файле pascal.

1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.

Задача 1

var

 x1, y1, x2, y2, l: real;

begin

 Writeln('Введите значения (x1,y1,x2,y2)');

 Read(x1, y1, x2, y2);

 l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));

 Writeln('Расстояние: ', l:3:2);

end.

Тестовое решение:

Введите значения (x1,y1,x2,y2)

2 3 4 5

Расстояние: 2.83

Задача 2

var

 a, b, c, p, s: real;

begin

 Writeln('Введите ABC');

 Read(a, b, c);

 P := (a + b + c)/2;

 S := Sqrt(p * (p - a) * (p - b) * (p - c));

 Writeln('Площадь по Герону: ', S:3:2);

end.

Тестовое решение:

Введите ABC

2 3 4

Площадь по Герону: 2.90