Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
Код в приложении.
При вставке на сайт форматирование текста исчезает.
Program gruz;
uses crt;
var x,y,z: integer;
begin
writeln( 'введіть масу кожного груза через пробіл і натисніть enter');
read (x,y);z:=(x+y);
writeln (z);
<span>end.</span>