Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
1. Начало алгоритма
2. Ввод a, b и c
3. Формула sum = a + b + c
4. Вывод "a + b + c = " + sum
5. Формула prs = a * b * c
6. Вывод "a * b * c = " + prs
7. Формула sra = (a + b + c) / 3
8. Вывод "(a + b + c) / 3 = " + sra
9. Конец алгоритма
Pascal ABC(проверьте правильность написанных вами формул...)