Решить. даны три числа. если какое - либо два из них оканчивается на 5, то распечатать их произведение. если хотя бы одно число положительно и на кратно 3, то распечатать квадрат каждого числа.

На каком языке программу надо написать?

//прога на pascal`е {не работает на   pascalabc.net, т.к. оный использует 2-байтную кодировку unicode, а не 1-байтную кодировку ascii, как более ранние версии pascal`ей} const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ   |   код ascii'); writeln (''); for i: =1 to n do writeln ('   ', chr(ch[i]), '     |     ', ch[i]); end. {версия для pascalabc.net} //прога на pascal`е const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do  begin ch[i]: =num; inc (num); end; writeln ('символ   |   код ascii'); writeln (''); for i: =1 to n do writeln ('   ', chr(ch[i]+848), '     |     ', ch[i]); end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var s: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+                 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';   foreach var c in s do writeln(c,' ',ordansi(c)) end. результат а 192 б 193 в 194 г 195 д 196 е 197 ё 168 ж 198 з 199 и 200 й 201 к 202 л 203 м 204 н 205 о 206 п 207 р 208 с 209 т 210 у 211 ф 212 х 213 ц 214 ч 215 ш 216 щ 217 ъ 218 ы 219 ь 220 э 221 ю 222 я 223 а 224 б 225 в 226 г 227 д 228 е 229 ё 184 ж 230 з 231 и 232 й 233 к 234 л 235 м 236 н 237 о 238 п 239 р 240 с 241 т 242 у 243 ф 244 х 245 ц 246 ч 247 ш 248 щ 249 ъ 250 ы 251 ь 252 э 253 ю 254 я 255