Составить циклический алгоритм информатика " «Роботу необходимо оформить два стенда (Стенд 1 и Стенд 2) для выставки»
​

===== PascalABC.NET =====

begin

 var a := ReadlnInteger('Введите целое число:');

 try

   Println(1 div a);

 except

   on System.DivideByZeroException do

     Println('Попытка деления на ноль');

 end;

 try

   var s := ReadlnString('Введите число с дробной частью:');

   s.ToReal.Println;

 except

   on System.FormatException do

     Println('Неверная запись вещественного числа')

 end;

 var b := ArrRandom(5, -10, 10);

 try

   Println(b[ReadlnInteger('Какой элемент массива вывести?')])

 except

   on System.IndexOutOfRangeException do

     Println('Неверный индекс')

 end;    

 try

   BigInteger.Parse(ReadlnString('Введите число:')).ToString.ToInteger

 except

   on System.OverflowException do

     Println('Слишком большое число')

 end

end.

Примечание: StackOverflowException невозможно перехватить в версии .NET выше 2.0.

program fdjh;

uses crt;

var

 F:text;

 in_name, z:string;

 max,n,i,d:integer;

begin

 writeln('Введiть iм`я файлу');

 read(in_name);

 assign(F,in_name);

 rewrite(F);

 writeln('Введiть розмiр файлу');

 read(n);

 for i:=1 to n do

 begin

   d:=random(101)-25;

   z := inttostr(d);

   write(F,z+#13#10);

 end;

 close(F);

 reset(F);

 max := -25;

 while not eof(F) do

 begin

   readln(F,z);

   d := StrToINt(z);

   if (d > max) and (d mod 4 = 0) then

     max:=d;    

 end;

 if max = -25 then writeln('Максимальний кратний 4 в файлі не існує')

 else writeln('Максимальний кратний 4 = ',max);

 close(F);

end.