Дано 3 дійсних числа a b c Якщо a>b>c кожне число збільшується вдвічі, інакше - кожне число зменшується на одиницю
розробіть програму для реалізації ​​

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

2, 4, 8, 16 (двоичная (10000), четверичная (100), восьмеричная (20), шестнадцатеричная (10))

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.