Сконструюйте команду, яка у написі Label2 буде "склеювати" текст із напису Label1, знак пробілу і вміст текстового поля

Відповідь:

StrToFloat a*txt*b be a;

Пояснення:

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.