Города - саки уфа баку, и наверчто тула, если там не тучи а туча слово
реки- урал ока кама волга
слово- майка, корм, балка, папка, губы, лесок, палка, клён, доска, сват, колено
<span>Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 </span>// проверка, х больше от 0?<span>
then
y := y * b // если да, то исполняется это
else </span><span>
if x = 0 then </span>//если нет, то это(тут опять же проверка, х равно 0?)<span>
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы</span>
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.
Лазерных дисков. раньше еще и флеш носителей.