Ответ:
В языке pascal есть такие конструкции как if, case на самом деле способов много, стоит лишь подумать.
Объяснение:
Для перевода экрана в графический режим.
double n, i=1, b=0;
cin>>n;
for(;i<=n;++i){
b = 1/i+b;
}
cout<<fixed<<setprecision(6)<<b;
}
Program griby;
var
a,b,c:integer;
begin
a:=8;// первая
b:=a-1;// вторая
c:=20-a-b;// третья
writeln(c);// вывод значения
<span>end.</span>