Вчем ошибка понять 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', а ожидалось '; '

Потому что модели реального объекта не всегда содержат все основные свойства объекта-оригинала(они содержатся в модели не полностью...одна модель не может в себя уместить все характеристики)...Их создают когда:
а)Процесс очень медленный
б)Процесс очень быстрый
в)Объект-оригинал очень мал
г)Объект-оригинал очень велик...
...Например,можно создать много моделей Земли:
Карту:
Рельефа
Климата
Материков и др.
Глобус:
Маленький
Большой и др.

Но,сколько бы ты ни создавал(а) моделей,ни одна из них не передаст всех характеристик реального объекта...

Удачи)))

Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.