Uses crt;
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!
Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
Для того что бы одним набором символов можно было писать на любом языке.
В старых кодировках ASCII И ANSI буквы отличные от латинских кодировались по разным правилам, замещая символы псевдографики, из-за малого размера таблицы (всего 256 знаков). Причем, эти кодировки несовместимы.
Юникод же позволяет закодировать до 2 147 483 648 символов.
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так