Uses crt;
var
n,f,p,s:integer;
begin
textbackground(15);
textcolor(1);
clrscr;
writeln('введите сколько книг по програмированию ');
readln(p);
f:=p*4;
s:=f-12;
n:=f+s+p;
writeln('всего ',n,' книг');
end.
Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.
Program abc;var a, b, i: integer;<span> s: string;</span>begin<span> a := 0;</span><span> b := 0;</span><span> read(s);</span><span> for i := 1 to length(s) do</span><span> begin</span><span> if s[i] = '(' then inc(a)</span><span> else if s[i] = ')' then inc(b);</span><span> end;</span><span> if a = b then writeln('Одинаковое.')</span><span> else writeln('Разное.');</span><span>end.</span>