Введите переменную с ,если переменная в=10. если с больше выводите их сумму ,иначе выводите удвоенное произведение.

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.