Ответ:

1) var

fam, imya, otch: string;

i: integer;

begin

fam:='Familiya';

imya:='Imya';

otch:='Otchestvo';

for i:=1 to 100 do

writeln(fam,' ',imya,' ',otch);

end.

2) var

i: integer;

begin

for i:=1 to 100 do

write(i,' ');

end.

3) var

i, s: integer;

begin

s:=0;

for i:=10 to 99 do

s:=s+i;

writeln('Сумма всех двузначных чисел равна ',s);

end.

Объяснение:

В 1 задаче заменить "Familiya", "Imya", "Otchestvo" на нужные значения