Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160
1.точку после Энда ставить нужно
readln(a);
readln(b);
2.c:=a*b;
3.writeln('proizvedenie a i b ravno,c);
4.Readln(c);
DIM A%
CLS
OPEN "ABC.txt" FOR INPUT AS #1
INPUT #1, A
PRINT "Pervoe = ", A
WHILE NOT (EOF(1))
INPUT #1, A
WEND
PRINT "Poslednee = ", A
CLOSE #1
END
Примечание: файл ABC.txt должен лежать в одной папке с программой.
SUB CNM (N, M, C)
C = 1
FOR i = M-N+1 TO M
C = C*i
NEXT i
FOR i = 1 TO N
C = C/i
NEXT i
END SUB
CLS
DIM C&, N%, M%
N = 3
M = 10
CALL CNM(N, M, C)
PRINT C
END