Сколько книг размером в 1024 Кбайт можно разместить на компакт-диске ёмкостью 700 Мб?

For - это цикл со счетчиком
"i := 0 to 10" - это начальное и конечное значения (ноль и десять)
т.е. начинаем с нуля, что-то делаем, и берем следующее число - "1"
потом снова что-то делаем, берем следующее - "2"
в "i" - записывается то число, с которым работаем в данный момент
и так, пока не дойдем до "10"

а вот что именно делать - написано между словами "begin" и "end"или сразу после "do" (если строка одна)

1) Можно представить несколько клеток с номерами (A0...A10) и числами в них
а в квадратных скобках "[i]" - номер клетки
Берем ноль, A[0] - "ячейку с номером 0" и записываем туда число 10
A[i] := 10 - i;
A[0] = 10 - 0 (в А0 записать 10)
далее в A[1] записываем "9" (10 - 1)
в A[2] записываем "8" (10 - 2)
и так до десяти включительно

2)далее цикл от 0 до 5
A[10-0] = A[5-0] (из десятой клетки записываем число в пятую)
A[5+0] = A[0]

A[10-1] = A[5-1] (из 9ой в 4)
A[5+1] = A[1] (из 6ой в 1)

A[10-2] = A[5-2] (8 -> 3)
A[5+2] = A[2] (7 -> 2)
и т.д. и т.п.

3)как-то так должно работать (следующий столбец - следующее число)

1
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if a<b then
min1:=a
else
min1:=b;
if c<d then
min2:=c
else
min2:=d;
if min1<min2 then
min:=min1
else
min:=min2;
writeln ('Наименьшее число: ',min);
end.

2
program z1;
var a,b,c,d,g,k:real;
begin
writeln ('введите стороны треугольника:');
readln(a,b,c);
if a<b then
begin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if d<c then
g:=c
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.