Строчные и прописные латинские буквы: 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
Var a,b,c: int64; i,j,k,n,m,r,p,s: integer; begin for i:=1 to 9 do // буква х for j:=1 to 9 do // буква г for k:=1 to 9 do // буква т for n:=0 to 9 do // буква о for m:=0 to 9 do // буква с for r:=0 to 9 do // буква у begin p:=k*k mod 10; a:=i*10000+p*1000+r*100+m*10+k; b:=j*100000+p*10000+n*1000+i*100+n*10+k; c:=p; for s:=1 to 10 do c:=c*10+p; if a*b=c then begin writeln('хруст = ',a); writeln('грохот = ',b); writeln(' = ',c); end; end; end.
x: real;
s, n, i: integer;
begin
write('1. Введите х для y= 5*x/(x-2) = ');
readln(x);
writeln('y = ', 5 * x / (x - 2));
write('2. Введите n = ');
readln(n);
s := 0;
for i := 1 to n do
s := s + i;
writeln('S = ', s)
end.