Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

информа / _Pascal10 / 01 / PRIMER1

.PAS
Скачиваний:
7
Добавлен:
14.05.2015
Размер:
365 б
Скачать
Program Primer1; {„Ґ¬®­бва жЁ®­­ п Їа®Ја ¬¬ }
Uses Crt;
Var a,s: integer;

Begin
ClrScr;
Writeln('Џа®Ја ¬¬  ¤Ґ¬®­бваЁагҐв а Ў®вг б ®ЇҐа в®а ¬Ё Read, Write');
Writeln('Ќ ¦¬ЁвҐ ENTER');
Readln;
Write('‚ўҐ¤ЁвҐ зЁб«®: ');
Readln(a);
Writeln('‚л ўўҐ«Ё зЁб«® a, а ў­®Ґ ', a);
Writeln;

repeat
s:=s+1;
until s=10;
write('s=',s);
End.



Соседние файлы в папке 01