А можно подробнее? я не очень понял но срадостю помогу
var
ed, m: Integer;
kg: Real;
begin
Write('Введите № единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');
Readln(ed);
if not (ed in [1..5]) then begin
Writeln ('Ошибка ввода номера для единицы массы!');
Exit;
end;
Write('Введите массу в этих единицах: ');
Readln(m);
kg := 0;
case ed of
1: kg := m;
2: kg := m / 1000000;
3: kg := m / 1000;
4: kg := m * 1000;
5: kg := m * 100;
end;
WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');
end;
В сообщении "Завтра в школу" 14 символов, включая пробелы. При стандартном кодировании 1 символ занимает 1 байт, следовательно все сообщение будет занимать 14 байтов
<span>56 KB56000 Байт<span>57344 Байт</span></span>
Использовать Роботалгначесли справа свободно и не сверху свободно товправовсенц пока справа свободно и сверху свободновправокцнц пока не сверху свободно и снизу свободнозакраситьвправокцесли не снизу свободно и не сверху свободно и справа свободно то вправо всенц пока справа свободнозакраситьвправокцкон