Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
К системному ПО относятся:
операционные системы;
программы-оболочки;
операционные оболочки- интерфейсные системы;
драйверы;
утилиты.
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Program zadacha;
var a,s:real;
begin
writeln('Введи число: ');
readln(a);
if a<3 then s:=a*a;
if a>5 then s:=a/2;
writeln(s:2:1);
end.