Дан квадрат с стороной а. Найти Периметр, Площадь, а также площадь треугольника если провести диагональ квадрата. НАДО

1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
  a, min: integer;

begin
  min := 555555;
  repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
  until a = 0;
  writeln(min);
end.

//вариант с циклом while
var
  a, min: integer;

begin
  min := 555555;
    readln(a);
    while (a>0) or (a<0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
      readln(a);
   end;  
  writeln(min);
end.

Запомни: в 1 байте 8 бит, в 1 Кбайте 1024 байт, 1 Мегабайте = 1024 кбайт, 1 Гигабайт = 1024 мегабайт.
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 *  8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит

Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт

(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)