Решить табличным после традиционного вечера встречи с бывшими выпускниками школы в стенгазете появилась заметка о трех бывших учениках школы. в этой заметке было написано, что иван, борис и андрей стали учителями. теперь они разные дисциплины: один – , второй – , третий – . живут они тоже в разных городах: минске, витебске и харькове. в заметке было еще написано, что первоначальные их планы осуществились не полностью: иван работает не в минске, андрей – не в витебске; житель минска преподает не , андрей преподает не . повезло только жителю витебска: он преподает любимую им . кто есть кто? заранее .

Мы знаем, что Андрей живет не в Витебске и не преподаёт химию, не преподаёт физику, значит он преподаёт математику, а живет в Харькове, дальше методом исключения узнаем про остальных

Чтобы наш снаряд (пуля, мяч или что-то еще) попало в цель, нужно чтобы высота подъема снаряда совпала с высотой, на которой расположена цель, и чтобы дальность полета совпала с заданным расстоянием. Иначе снаряд может улететь выше или ниже цели или не долетать.

Воспользуемся формулами по равнозамедленному движению.

program zadacha;

const

g=9.8;

var

h,L,a,V,S,h1:real;

begin

writeln('vvedite visotu i dalnost celi');

readln(h,L);

writeln('vvedite ugol, skorost snariada');

readln(a,V);

a:=a*pi/180;

h1:=int(( sqr(V)* sqr(sin(a))) / (2*g));

S:=int((sqr(V)*sin(2*a))/g);

if (S=L) and (h1=h) then writeln('popal') else writeln('ne popal');

end.

Решение со смещением всех последующих элементов. 

program znanija;
const n = 21; // N + 1
var 
a:array[1..n] of integer;
m, i:integer;
begin

write('Введите позицию для вставки: ');
readln(m);

if (m<1) or (m>n-1) then
begin 
writeln('Недопустимое значение m'); 
exit;
end;

write('Массив до вставки: ');
for i := 1 to n-1 do
begin 
a[i] := random(100); 
write(a[i], ' '); 
end;

writeln();
for i := n - 1 downto m do // Смещение
a[i+1] := a[i]; 
  
a[m] := 10;  // Вставка

write('Массив после вставки: ');
for i := 1 to n do 
write(a[i], ' ');
end.