Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,b,c : string;
begin
write('введите название 1 фигуры-');
readln (a);
write('введите название 2 фигуры-');
readln (b);
write('введите название 3 фигуры-');
readln (c);
writeln (' фигуры: ',a,b,c);
readln
end.
program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
Популярные вопросы