Якого типу даних має бути змінна, яка позначає параметр у циклі з лічильником?

a в квадрате плюс b в квадрате:  

;

цели создания модели бывают такие:

сохранить информацию о наблюдаемом объекте

передать информацию о нём другим людям

показать,как может выглядеть проектируемый объект

испытать на модели работу объекта ,если испытание объекта-оригинала

опасно или дорого

решить

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.