Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;writeln('Ответ:',time + month);
end.
Смотри, x:=x+y Сам Y у нас тут не меняется, значит менялся только X. отсюда получаем 4=x+27 обычное уравнение. x=4-27=-23.
А т.к. Y не менялся, первоначальные значения равны:
x=-23, y=27
Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить