Запись, :=+3 читается так: переменной B присвоить значение выражения K минус 3
переменной B присвоить значение выражения K плюс 3
переменная B приблизительно равна значению выражения K плюс 3
переменная B равна значению выражения K плюс 3

р треугольника= сложить все стороны

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.