Запись на языке Pascal полного ветвления

аааа.очень очень нужно:*в интернете не могу найти(

Program w;uses crt;var A:real;beginclrscr;write (Введите число A: );readln (A);if A>=0 thenwriteln (Вы ввели положительное число);readlnend.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку