Написать программу, которая грамотно печатает фразу "у меня к друзей". к вводится с клавиатуры. например, для к=1 должно напечататься " у меня 1 друг", для к=24 - "у меня 24 друга", для к=100 - "у меня 100 друзей". написать программу в paskal

Program zadacha; var a,b: string;       n: longint; begin writeln('введите количество друзей'); readln(n); if n> 4 then b: =' друзей' else if n=1 then b: =' друг' else b: =' друга'; a: ='у меня '; writeln(a,n,b); end.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

writeln('a[',i,']=',a[i]);

readln;

end.