Вчем ошибка понять const y = ''; var a,b : integer ; name : string ; k,f : integer ; begin k: = 0 repeat ; writeln ('введите пароль'); readln (f) if f = 228 then writeln('верно'); else writln ('неверный пароль'); inc (f); writln until(f= 228) of (k = 5) ; end. begin writeln ( 'введите своё имя '); readln ( name ); writeln ( y , ' , ' ,name ,' ! '); writeln ( 'введите значение а : '); readln (a); writeln ( 'введите значение b : '); readln (b); writeln('расчёт '); writeln('a+b = ',a+b); end.в чем ошибка пишет встречено 'repeat', а ожидалось '; '

"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.

"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"

Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"

"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного . 

Var
   a,b,d,K,kp:integer;
   P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
   Begin
   kp:=2;
   Write(2,' ',3)
   end
else if a = 3 then
        Begin
        kp:=1;
        Write(3);
        End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
   Begin
   K:=Trunc(Sqrt(A));
   d:=3;
   P:=true;
   While d <= K do
      Begin
      if A mod d = 0 then P:=false;
      d:=d+2
      End;
   if P then
      Begin
      kp:=kp+1;
      Write(' ',a);
      End;
   a:=a+2
   End;
if kp = 0 then Write(0)
End.