Пишет lr1.pas(26) : Неверное количество параметров процедуры сколько их там, а то я чтото не понимаю
Program lr1;
var a:array [1..4] of integer;
b:array [1..4] of integer;
i:word;
type massiv=array[1..4]of integer;
procedure kvda(a:massiv; i:word);
var c:array [1..4] of integer;
begin
for i:=1 to 4 do begin
c[i]:=a[i]*a[i];
write(c[i]);
end;
end;
procedure kvdb(b:massiv; i:word);
var d:array [1..4] of integer;
begin;
for i:=1 to 4 do begin
d[i]:=b[i]*b[i];
end;
end;
begin
for i:=1 to 4 do begin
write('Введите элементы массива А');
readln(a[i]);
end;
kvda(4);
for i:=1 to 4 do begin
write('Введите элементы массива B');
readln(b[i]);
end;
kvdb(4);
end.

Целая часть от деления                    Остаток от деления12 div 2 = 6                                        12 mod 2 = 06 div 2 = 3                                          6 mod 2 = 03 div 2 = 1                                          3 mod 2 = 11 div 2 = 0                                          1 mod 2 = 1Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1100
12 = 1100|2
Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 1100
0.75 = 1100|2
В итоге получаем число: 1100.1100|2

Всего номеров четыре. Номера Пети и Коли в сумме меньше четырех, следовательно ни Петя, ни Коля не могут быть ни четвертым, ни третьим, поэтому у Пети и  Коли номера 1 и 2 (только 1+2=3, что меньше четырех). Значит, Гриша не первый и не второй, т.е. его номер больше, чем у Пети и ответ - "да".

Условие, что последний (четвертый) стоит после Коли - лишнее, оно ничего не дает. Гриша стоит перед Васей позволяет нам лишь сделать вывод, что Гриша третий, а Вася четвертый, но и этого по условию задачи нам не нужно.