Составить и отладить программу на паскале

У тебя a действительного типа.
К нему не применимы операции целочисленного деления!
Переменная s вводится только для того, чтобы получить значения деления или умножения и сразу выводится.
Т. е. практически не нужна - вычисление и вывод можно совместить.
В операторе WriteLn две подряд идущие кавычки!
А главное: программа вводит всего одно число, когда нужно 2!!!
~~~~~~~~~~~~~~~~~~~~~~~
Короче - Всё нужно переписать вот так:
var A, B : Word;
begin
WriteLn('Введите 2 натуральных числа: одно чётное, второе нечётное: ');
Write('Введите A = '); ReadLn(A);
Write('Введите B = '); ReadLn(B);
if Odd(A) then { число A нечётное, значит B должно быть чётным }
if Odd(B) then { число B тоже нечётное }
WriteLn('Ошибка: Оба числа нечётные! ')
else { число B чётное }
begin
WriteLn(A, ' *4 = ', A*4);
WriteLn(B, ' /2 = ', B/2);
end
else { число А чётное, значит B должно быть нечётным }
if Odd(B) then { число B нечётное }
begin
WriteLn(A, ' /2 = ', A/2);
WriteLn(B, ' *4 = ', B*4);
end
else { оба числа чётные }
WriteLn('Ошибка: Оба числа чётные! ');
end.

Составляй и отлаживай.
Я разрешаю.

program ex_1;
const
a = 10;
b = -4;
var
aa, bb : integer;
begin
aa:= a mod 2;
bb:= b*4;
writeln('aa=',a);
writeln('bb=',b);
readln;
end.

если а мод 2=0
тогда а: =а див 2 и в: =в*4
иначе "наоборот"