помогите решить задачи на паскале

[LAFUDR]

Допиши в конце проги readkey();
получится
readkey();
end.

[puporev]

writeln (p);
readln //вставь и заработает
end.

[BurningRage]

Спасибо всем за помощь!

[BurningRage]

Если не трудно помогите решить ещё несколько программ
1) написать программу по нахождению двух чисел.( есть начало программы возможно не правильное)
Program p4;
uses crt;
var a,b,k,i,n: integer;
begin
clrscr;
writeln ('введите 2 числа');
readln (a,b);
if (a>=b) then k:=b
else
if (a<b) then k:=a;
for i:=1 to k do
if (a mod i=0) and (b mod i=0) then


2)написать программу определяющую простое или сложное число
3)написать программу : дан прямоугольник axb. Сколько квадратов со стороной "c" можно отрезать от него?
4)В задоном числе последнюю и первую цифры переставить местами. На экран вывести среднее арифметическое данного и полученного числа.
5)Данна непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму положительных элементов последовательностиБ порядковые номера которых не чётны.
ПОЖАЛУСТА ПОМОГИТЕ В ПОНЕДЕЛЬНИК ЭКЗАМЕН!

[gred]

4 задача
вот нахождение средне арифмитического
+добавь mas[1]:=k; mas[n]:=k; mas[1]:=mas[n];

 program Sredarifm; { Вычисление среднего арифметического }
type

    Mas = array[1..50] of integer;

var

    A : Mas; { исходный массив }
    N : integer; { количество элементов в массиве }
    I : integer; { переменная цикла }
    Kolpol : integer; { количество положительных элементов }
    Sumpol : integer; { сумма положительных элементов}
    Sred : real; { среднее арифметическое}


begin

    writeln ( ' Вычисление среднего арифметического ' );
    write ( ' Введите количество элементов массива <= 50 ' );
    read(N);
    writeln ( ' Ввод элементов массива ' );
    for I :=1 to N do

        read ( A[ I ] );

    Kolpol := 0;
    Sumpol := 0; {пока не нашли положительных элементов}
    for I := 1 to N do

        if A[ I ] > 0 then
        begin {составной оператор}

            Sumpol := Sumpol+A[ I ]; {суммирование положительных элементов}
            Kolpol := Kolpol+1; {количество положительных}

        end; 

    if Kolpol<>0 then
    begin

        Sred := Sumpol / Kolpol;
        writeln ('Ср.арифметическое положительных=' , Sred:10:3); 

    end
    else writeln ( 'Положительных элементов в массиве нет' ); 

end

[gred]

Сообщение от BurningRage

Если не трудно помогите решить ещё несколько программ
1) написать программу по нахождению двух чисел.( есть начало программы возможно не правильное)

Каким способом их находить?

[BurningRage]

Как можно решить 4 задачу если учесть что я не знаю и не могу знать массивов?

[gred]

Что в массивах трудное?
можно черес констаты например z,x,c,v.h integer;

[Arkuz]

Произведение можно найти по-другому:

Писал в блокноте, должно работать!

readln(a);
str(a,s);
d:=length(s);
b:=1;
for i:=1 to d do 
 begin
   b:=b*val(s[i],x,{тут какой-то 3 параметр, по-моему код ошибки})
 end;
writeln(b);

[gred]

  numberString : string;
  float        : Extended;
  errorPos     : Integer;

  Val(numberString, float, errorPos);

ток непонятно зачем тут вал нужен?