program z1;
var a,b:integer;
begin
readln(a,b);
if a > b then
begin
writeln(a*a);
writeln(b*b)
end
else
begin
writeln(b*b);
writeln(a*a)
end
end.
Объяснение:
Ввод чисел
Проверка условия a > b,
если условие верно, то вывод в первой строке квадрата первого числа, во второй строке - квадрата второго числа,
в противном случае вывод в первой строке квадрата второго числа, во второй строке - квадрата первого числа
отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.
Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби.
Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.
Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина.
Телевизор не полезен, потому что перед ним человек сидит пассивно. Сидит, пультом клацает, а ему показывают картинку. С компьютером другое дело! С ним все время надо действовать! Даже читать и писать все время приходится. Так даже интереснее, чем торчать у телевизора.
А еще компьютер заставляет выбирать самому то, что действительно нужно. Если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь.
Компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. Просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. И чтобы расширить возможности человека, а не сузить их.
var a,b:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if a>b then begin writeln(a*a); writeln(b*b);end else begin writeln(b*b); writeln(a*a);end
end.