Дано: writeln (s:6:2); Если s=114,22069, то на экране появится:

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

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

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

пион-пониадрес-средалапа-апалполучить-поучить карета-ракета

каприз-приказ

калоша-ладошка 

мошкара-рамашка