Студент Колесников Николай приобрел в специализированном магазине один экземпляр компьютерной программы. Лицензионный договор продавец не оформил, сказав, что он указан на упаковке экземпляра программы. Вечером к Колесникову пришел его товарищ Васильев Влад и попросил сделать ему копию программы, чтобы установить её у себя на компьютере. После недолгих сомнений Колесников дал копию программы товарищу. Законно ли приобрёл Колесников компьютерную программу? Имел ли он право дать её копию Васильеву?

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

дело в том, что цифра это знак, и буква это знак.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите