Укажите информационные модели. карта глобус график зависимости расстояния от времени макет здания схема узора для вязания крючком муляж яблока манекен схема метро

Карта,график зависимости расстояния от времени, схема узора для вязания крючком, схема метро

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 - №1 begin   var a,b,c: integer;   write('введите три натуральных числа: '); read(a,b,c);   var s: =a+b+c;   var k: =trunc(sqrt(s));   if k*k=s then writeln('сумма чисел - квадрат ',k)   else writeln('сумма чисел не является квадратом целого') end. тестовое решение введите три натуральных числа: 13 4 8 сумма чисел - квадрат 5 // pascalabc.net 3.1, сборка 1230 от 27.04.2016 - №2 begin   var a,b,c: integer;   write('введите три натуральных числа: '); read(a,b,c);   var s: =power(a*b*c,1/3);   if s=int(s) then writeln('среднее - целое число')   else writeln('среднее - нецелое число') end. тестовое решение введите три натуральных числа: 16 8 15 среднее - нецелое число

Вроде это   program lab1_2;   const   n= 5; m=5;   var   a: array[1..n,1..m] of real;         s,i,j: integer;   begin   randomize;       for i: =1 to n do       begin         for j: =1 to m do           begin           a[i,j]: =random(10);           write(a[i,j]: 4);           end;         writeln;       end;   s: =0;     for i: =1 to n do begin     for j: =1 to m do begin       if (a[i,j] mod 2) = 0 then begin       s: =s+a[i,j];       end;     end;       end;   writeln('summa: ',s);     readln; end.(если ошибся сори! )