var
a: real;
i: integer;
mas: array[0..999] of real;
begin
a := -4.5;
i := 0;
while a <= 3.5 do
begin
mas[i] := a;
a += 0.5;
write(mas[i], ' ');
i += 1;
end;
end.
5. Некоторые клавиши продублированы на клавиатуре для удобства пользования. Например, клавиши Shift, alt и cntrl расположены с правой и левой стороны клавиатуры для правшей и левшей.
6. Home - End. Перемещение курсора в начало строки и в конец.
Page Up - Page Down. Это аналогично ползунку в правой стороне экрана, когда на экране отображается не вся картинка и требуется пролистать либо вверх, либо вниз.
Стрелка вправо - стрелка влево. Перемещение курсора вправо и влево.
Стрелка вверх - стрелка вниз. Перемещение курсора вверх и вниз.
Var a1, a2, a3, max: integer;
begin
writeln('a1=');
readln(a1);
writeln('a2=');
readln(a2);
writeln('a3=');
readln(a3);
if a1 > a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln;
<span>end.</span>
P = a + b + с т.е.сумма длин всех его сторон(из 3)!!)))