Составьте программу, которая запрашивает пол учеников ('ж'или 'м') и их количество(от 5 до 30) и выдаёт сообщение. протокол: введите пол и количество: ж 13 в классе сейчас тринадцать девочек на паскале

а я вот так сделал)

написано в pascal.abc.net

var x : integer; sex : char; function numbers(n: integer): string; begin case n of 5: result : = 'пять'; 6: result : = 'шесть'; 7: result : = 'семь'; 8: result : = 'восемь'; 9: result : = 'девять'; 10: result : = 'десять'; 11: result : = 'одиннадцать'; 12: result : = 'двенадцать'; 13: result : = 'тринадцать'; 14: result : = 'четырнадцать'; 15: result : = 'пятнадцать'; 16: result : = 'шестнадцать'; 17: result : = 'семнадцать'; 18: result : = 'восемнадцать'; 19: result : = 'девятнадцать'; 20: result : = 'двадцать'; 21: result : = 'двадцать один'; 22: result : = 'двадцать два'; 23: result : = 'двадцать три'; 24: result : = 'двадцать четыре'; 25: result : = 'двадцать пять'; 26: result : = 'двадцать шесть'; 27: result : = 'двадцать семь'; 28: result : = 'двадцать восемь'; 29: result : = 'двадцать девять'; 30: result : = 'тридцать'; 31: result : = 'тридцать один'; 32: result : = 'тридцать два'; 33: result : = 'тридцать три'; 34: result : = 'тридцать четыре'; 35: result : = 'тридцать пять'; end; end; begin writeln ('введите пол и количество: '); readln (sex,x); write('в классе сейчас ', numbers(x)); if sex = 'м' then write(' мальчиков') else if sex = 'ж' then write(' девочек'); end.

ох и намудрил с этой программой))

program school;   var a: char; b: real; c,d: boolean; beginwriteln ('введите пол (м или ж) и количество учеников');

repeat write ('пол - '); readln (a); if upcase(a)='ж' then c: =true; if upcase(a)='м' then c: =true; if c=true then write elsewriteln ('вы должны ввести использовать символы "м" или "ж"'); until c=true;

repeat write ('количество учеников данного пола от 5 до 30 - '); readln (b); if b< 5 then d: =false else d: =true; if b> 30 then d: =false else d: =true; if d=true thenbeginif upcase(a)='ж' then writeln ('в классе сейчас ',b,' девоч.'); if upcase(a)='м' then writeln ('в классе сейчас ',b,' мальч.'); end; until d=true; end.

uses crt; var s: string; beginwriteln('напишите слово'); readln(s); writeln('ма',s); writeln(s[1],s[2],s[3],s[4]); end.