ИНФОРМАТИКА ПИТОН МАКС

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.