Это цикл for: 1) даны натуральные числа X и Y. Вычислить X*Y, пользуясь только оперцией…

1- program odin; var x, y, i,p: integer; beginread (x,y); p: =0; for i: =1 to y dop: =p+x; writeln (p); end. 2-program dva; var x,y,r: real; beginread (x,y); r: =x/y; writeln (r); end. 3-program tri; var n,i,b: integer; s: real; beginread (n); b: =1; for i: =1 to n dos: =s+(b/i); writeln (s); end.