По горизонтали: 1. Один из методов познания. 4. Модель, в которой известен отклик системы на некоторые входные данные. 5. Второй этап математического моделирования. 6. Модель, в которой надо найти по решению характеристики этой системы. По вертикали: 2. Один из основоположников математического моделирования в России. 3. Свойство, которым должна обладать программа.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал 

var x,y: integer;

begin

readln(x);

if x< 1 then y: =-2*x+11

else y: =x*x-2;

writeln(y);

end.

а=2021

b=2+21=23 (div - целочисленное деление, mod - остаток от деления)

8