Будьласка це контрольна 50 ів але хто пише неправильно блокую і ! знайдіть суму,кількість та середнє арифметичне всіх натуральних трьохзначних чисел що починаються та закінчуються однаковими цифрами в лазарусі початок маю a: array[0..1000] of integer; i,n,sum,kil: integer; ser: real; n: =memo1.lines.count; sum: =0; for i: =0 to n do a[i]: =strtoint(memo1.lines[i-1]); for i: =1 to n do if (a[i]< 10) and (a[i]< 1000) then begin if (a[i]div 100) =(a[i] mod 10) then sum: =sum+a[i]; kil: =kil+1; ser: =sum/kil;

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
 for j:=0 to 9 do
  begin
  s:=s+i*100+j*10+i;
  k:=k+1;
  end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
 s:=0; k:=0;
 for i:=1 to 9 do
  for j:=0 to 9 do
   begin
   s:=s+i*100+j*10+i;
   k:=k+1;
   end;
   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
  StaticText1.Caption := s;
end;

Не было возможности скопировать, исходный текст у вас в личных сообщения: