Var
a,b,c:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a<b then writeln('min=',a) else begin
if b<c then writeln('min=',b) else writeln('min=',c);
end;
readln;
<span>end.</span>
Программа просит числитель и знаменатель обеих дробей через пробел и выдает произведение
6, потому что мышь не являеться нужным для работы ПК
Например, русские сказки :)
while репка не вытащена do
begin
добавить еще одного участника;
тянуть-потянуть;
end;
кричать ('Вытянули репку!!!');
end.
while не встретилась лиса do
begin
катиться-покатиться;
встретить зверя в лесу;
спеть о том, как от бабушки ушёл и от дедушки ушёл;
спеть о том, как от всех предыдущих зверей ушёл;
пообещать и подавно уйти;
покатиться дальше;
end;
попасть лисе на зубок;
end.