написатьс функциями

[Liubov]

1. написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. Ниже представлен рекомендуемый вид экрана во время работы программы.
таблица квадратов
число квадрат
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
2. Даны натуральные числа n и k. Составить программу вычисления выражения 1^k+2^k+…n^k.
3. найти сумму целых положительных чисел, кратных 4 и меньших 100.

[Алексей_2012]

Ниже представлен рекомендуемый вид экрана во время работы программы

А "ниже"-это где??

[kventin_zhuk]

Господи - ну когда это кончится?(

program o1;
uses
    crt;

function pow(a: integer): integer;
begin
     result := a * a;
end;

var
   i: integer;
begin
     for i := 1 to 10 do
     begin
          writeln(i, ' ', pow(i));
     end;
end.

[Алексей_2012]

вот так кода по-меньше

program o1;
uses crt;
var
   i:byte;
begin
clrscr;
for i := 1 to 10 do writeln(i, '; ',sqr(i));
end.

[Liubov]

а можно вторую и третью сделать?

[VIK_aka_TOR]

2)

var 
 i,k,n : integer;
 summa: integer;

function stepen(n,k : integer):integer;
var
  rez : integer;
  i : integer;
begin
 rez := 1;
 for i := 1 to k do
   rez := rez * n;
 stepen := rez;
end;

begin
readln(n,k);
summa := 0;
for i:=1 to n do
   summa := summa + stepen(i,k);
writeln(summa);
end.

3.1 перебором

begin
for i:=4 to 99 do
 if (i mod 4 = 0) then
   writeln(i);
end;

3.2 поумнее

begin
i := 1;
while (i * 4 < 100) do
  begin
    writeln(i*4);
    i:= i + 1; // inc(i);
  end;
end;

[Liubov]

а третью полностью можно?

[s-andriano]

begin
 writeln('1 1'#13#10'2 4'#13#10'3 9'#13#10'4 16'#13#10'5 25'#13#10'6 36'#13#10'7 49'#13#10'8 64'#13#10'9 81'#13#10'10 100');
end.

kventin_zhuk, крайне дурной тон называть функции "чужими именами". pow принято называть функцию, возводящую число a в степень b.
Для возведения же в квадрат существует встроенная функция sqr - ее писать не нужно.