Алфавит языка программы pascal состоит из

Строчные и прописные латинские буквы: a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j k l m n o p q r s t u v w x y z пробел подчеркивание: _ арабские цифры: 0 1 2 3 4 5 6 7 8 9 знаки операций: + - * / = < > < > < = > = : = @ ограничители: . , ' ( ) [ ] (. ) { } (* *) .. : ; спецификаторы: ^ # $ служебные (зарезервированные) слова: absolute exports library set assembler external mod shl and far name shr array file nil string asm for near then assembler forward not to begin function object type case goto of unit const if or until constructor implementation packed uses destructor in private var div index procedure virtual do inherited program while downto inline public with else interface record xor end interrupt repeat export label resident подробнее - на -

Program zadacha; uses crt; var n, k: integer; s: longint; begin clrscr; write ('enter k: '); readln (k); s: =0; for n: =k to 9999 do begin if n mod k =  0 then  s: =s+n; end; writeln ('summa=', s); readkey; end.