Нужно! определите, что будет выведено после исполнения алгоритма при f=2​

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

21,24,27,30,33,36,39,42,45,48

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

если делать, как самоделкин, стыковать кубики столбиком,

то получится так:

var

n: integer;

begin

readln(n);

writeln(4*(2*n+1),' спичек понадобится');

end.

а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.