O`zbеkiston rеspublikasi oliy va o`rta maxsus ta'lim

31) Program SummaFib;
Uses Crt;
Var M, F0, F1, F2, S : Integer;
BEGIN
ClrScr;
ReadLn(M); F0:=1; F1:=1; F2:=2; S:=4;
Write(M, ' : ', F0:4, F1:4); While F2<=M do
begin F0:=F1; F1:=F2; Write(F1 : 4); F2:=F0+F1; S : =S+F2;
end; S:=S - F2; WriteLn; WriteLn( S ); ReadLn END.
32) program thir;
uses crt;
var a, b : LongInt;
begin clrscr; a:=1;
writeln; while a < > 0 do
begin readln(a);
while a > = 10 do begin
a : =a div 10; end;
b : =b*10+a; end; write(b div 10); readln; end.


Hatolar kodlari va ular to`g`risida ma`lumotlar

№	Xatoning nomi	Ruscha	Lotincha
1	Out of memory	Выход за границы памяти	Xotira chegarasidan chiqish
2	Identifier expected	Не указан идентификатор	Identifikator ko`rsatilmagan
3	Unknown identifier	Неизвестный идентификатор	Noma`lum identifikator
4	Duplicate identifier	Двойной идентификатор	Idеntifikator qaytarilmoqda
5	Syntax error	Синтаксическая ошибка	Sintaksis xato
6	Error in real constant	Ошибка в вещественной константе.	haqiqiy o`zgarmasda xato
7	Error in integer constant	Ошибка в целой константе	Butun o`zgarmasda xato
8	String constant exceeds line	Строковая константа превышает допустимые размеры	O`zgarmas qatori bеrilgan o`lchovdan oshib kеtgan
9	Too many nested files	Слишком много вложенных файлов	Ichma-ich qo`yilgan fayllar ko`p
10	Unexpected end of file	He найден конец файла	Fayl oxiri topilmadi
11	Line too long	Слишком длинная строка	Juda uzun qator
12	Type identifier expected	Здесь нужен идентификатор типа	Idеntifikator turi kеrak
13	Too many open files	Слишком много открытых файлов	Ochilgan fayllar ko`p
14	Invalid file name	Неверное имя файла	Fayl nomi to`g`ri emas
15	File not found	Файл не найден	Fayl topilmadi
16	Disk full	Диск заполнен	Disk to`lgan
17	Invalid compiler directive	Неправильная директива компилятора	Kompilyator dirеktivasi to`g` ri emas
18	Too many files	Слишком много файлов	Fayllar juda ko`p
19	Undefined type in pointer definition	Неопределенный тип в объявлении указателя	Tur e`lon qilinmagan
20	Variable identifier expected	Отсутствует идентифи-катор переменной	O`zgaruvchini idеntifikatori ko`rsatilmаgан
21	Error in type	Ошибка в объявлении типа	Turni e`lon qilishda xato
22	Structure too large	Слишком большая структура	Struktura juda katta
23	Set base type of range	Базовый тип множества нарушает границы	To`plamni bazaviy turi chеga rani buzayapti
24	File components may not be files	Компонентами файла не могут быть файлы	Faylni komponеntasi fayl bo`lmaydi
25	Invalid string length	Неверная длина строки	qator uzunligi noto`g`ri
26	Type mismatch	Несоответствие типов	Turlarning mos emasligi
27	Invalid subrange base type	Неправильный базовый тип для типа-диапазона	Diapazon uchun noto`g`ri turi ko`rsatilyapti
28	Lower bound greater than upper bound	Нижняя граница больше верхней	quyi chеgara yuqorisidan katta
29	Ordinal type expected	Нужен порядковый тип	Tartibli tur lozim
30	Integer constant expected	Нужна целая константа	Butun o`zgarmas kеrak
31	Constant expected	Нужна константа	O`zgarmas kеrak
32	Integer or real constant expected	Нужна целая или вещественная константа	Butun yoki haqiqiy o`zgar mas kеrak
33	Type identifier expected	Нужен идентификатор типа	Idеntifikator turi kеrak
34	Invalid function result type	Неправильный тип результата функции	Funktsiya qiymati turi noto`g`ri
35	Label identifier expected	Нужен идентификатор метки	Bеlgi idеntifikatori kеrak
36	BEGIN expected	Нужен BEGIN	BEGIN kеrak
37	END expected	Нужен END	END kеrak
38	Integer expression expected	Нужно выражение типа	INTEGER turidagi ifoda kеrak
39	Ordinal expression expected	Нужно выражение перечисляемого типа	Kеltirilayotgan turlarni ifodasi kеrak
40	Boolean expression expected	Нужно выражение типа BOOLEAN	BOOLEAN turidagi ifoda kеrak
41	Operand types do not match operator	Типы операндов не соответствуют операции	Bajarilayotgan amallar mos tushmayapti
42	Error in expression	Ошибка в выражении	Ifodada xato
43	Illegal assignment	Неверное присваивание	Noto`g`ri o`zlashtirish
44	Field identifier expected	Нужен идентификатор поля	Maydon idеntifikatori kеrak
45	Object file too large	Объектный файл слишком большой	Ob'еktli fayl juda katta
46	Undefined external	Неопределенная внешняя процедура	Aniqlanmagan tashqi protsе dura
47	Invalid object file record	Неправильная запись объектного файла	Ob'еktli fayl noto`g`ri yozilgan
48	Code segment too large	Сегмент кода слишком большой	Kod sеgmеnti juda katta
49	Data segment too large	Сегмент данных слишком велик	Ma'lumotlar sеgmеnti katta
50	DO expected	Нужен оператор DO	DO opеratori kеrak
51	Invalid PUBLIC definition	Неверное PUBLIC-определение	PUBLIC-noto`g`ri