Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
елынын статикасын аитады елынде не боп жатканнын
program kvadrat;
var i : integer;
begin
for i: = 10 to 100 do
writeln ( i: 2, i*i : 5);
readln;
end.
program xxx;
var a,b,c : string;
write('введите название 1 фигуры-');
readln (a);
write('введите название 2 фигуры-');
readln (b);
write('введите название 3 фигуры-');
readln (c);
writeln (' фигуры: ',a,b,c);
readln
Популярные вопросы